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* 

« 


C3uaU rdSt TCp 


Octave 






seg 


' klics ' 






macro 








TOPX 










a nu 


« nu*ulnU 




mo v C • W 








neg .w 


&DG 


• DG=D{-G0) 




add . w 


&HC&DG 


DG=DD 




add.w 


iXX,£HG 


HG*G1D 




swap 


4HG 


HG-DG1 


* 


move . 1 


iDG.&old 


save DD 




endm 








macro 








TOPY 




AM 




move . 1 




rcou nu 




move. 1 


&newl,£HG2 


read HG 




move . 1 


&HG1.&HG0 


copy HG 




add 1 




ijcwi — > nxm. 




sub.l 


&XX.&HG0 


newOsHOGO 




endm 








macro 








TOPBLOCK 


£DC0 , &HG0, &newO, *oldO, 


&DG1, &KG1, &newi. 




TOPV 

iwn 








TOPX 


&DG0 , 4HG0 , &oldO # £XX 






TOPX 


&DG1 , 4HG1 , &oldl *&XX 







endm 








macro 








TOPH 


&DG, &HG, tnev, &old, &XX 






move . X 


&new,&HG 






TOPX 


&DG, told, &XX 






endm 








macro 








TOPE 


tDC, &old, &XX 






move. 1 


&DG,tXX 


XX»DG 




swap 


&XX 


XX=GD 




move . w 


4XX.&DG 


DG=DD 




move. 1 


£DG,&old 


save DD 
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endra 



# 

?S 
src 

OS" 

width 
r.eight 



*do2 



Gdc2 



9do4 



rowc 

RICORE 
OS. L 
DS.*. 
ZS.'u 
DS.L 

linJc 
movem. 1 

move a . 1 
move . i 
move . 1 
move . 1 
move . 1 

move . 1 
add.l 
move. i 

lsr.l 
surxj. 1 

lsr.l 
suJbq.l 

move . 1 
move. 1 

TOPH 

TOPH 

dbf 

TOPH 

TOPE 

move . 1 
move . 1 
adda.l 
add*. 1 
move . 1 
TOP? 

TOPBLOCK 
TOPBLOCX 
dbf 

TOPBLOCK 
TOPE 
TOFE 
dbf 

move. 1 
add.l 

move . 1 
move. 1 
dbf 

movem . 1 



LXPCRT 

8 
I 
1 



a6. *0 

d4-d7/a3-a5, - <a7) 

PS.src(a6) .aO 
PS. height (a6) ,d7 
PS. width < a6 ) , d6 
aO.al 

PS.dstta6l.al 

d6.d5 
d5.d5 
d5.a4 

• l.d7 

•a.d7 

• 2.d6 

• 2.d€ 

d6,d3 
(aO)*,dO 

dO.dl, (a0)#. Ial)+.d4 
dl.dO, <a0)+, <al)*.d4 
dS . ftdol 

dO.dl, <a0)+. (al)*.d4 
dl, lali+.d4 

a0,a2 
al.a3 
a4.a0 
a4.al 
d6,d5 

d2. <a2)**d0. (a0)-,d4 



no lecal variables 
store registers 

read src 
read height 
read width 

read dst 

inc * width 

save inc 

height/=2 
height-*? 

width/ »4 
width-*2 

ccount avidth 
dus*nevO++ 



while -l!»--ccount 



nevCUnewl 
oldOroldl 
nevl*einc 
oldl-»sinc 
ccount «width 



d2.d3, (e2>*, (a3 ) ^ 
d3.d2, (a2>*. (a3)< 
d5.*do3 



.dO.dl. (a0>+. (al)*,d4 
.dl.dO, (aO)*. <al)*, d4 

; whiie -i!=--cco\int 



d2.d3. ;a2>+, 
dl, <al)*,d4 
d3, (a3)*,d4 
d7,0do2 

d6,d5 
*l.d5 

{a3)->, (all* 
<a3l*. ial)* 
dS . 9do4 



(a7W,d4-d7/a3-a5 



(«3W,d0.dl. (a0>*, (al)*,d4 



while -ll=--height 

ccount awidth 
dO»*newO*-» 

copy prev line 

while -1 ! a- -ccount 

restore registers 
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unlk a 6 ; remove locals 

zzs : return 

ENCFUNC 



EOT 
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680XC Tatsle Loocjp RGB/YW cod© 



machine 
seg 



MC68030 
' fclics' 



if tTYPE t ■ seg ' t * ■ UNDEFINED* then 



seg 
end if 

MKTABLE FUNC 



iseg 



PS 

Table 



RECORD 

DS.L 

ENDR 

link 
movem. 1 



EXPORT 
8 



a6.#0 

d4-d?/*3-a5, 



■<a7) 



store registers 



move . 1 


PS.Table<a6) ,a0 


; Table is 


clr.l 


dO 


;U value 


3 Make Loop 






move. w 


*512.dl 


;512 


move. 1 


d0,d2 


;U 


move. v 


d2,d3 


;U 


add. v 


d2,d2 


;20 


add. w 


dl,d2 


;20 ♦ 512- 


lsr.w 


*2.d2 




move. v 


d2, (aO)* 


; Place 1st 


move . w 


d2, taO)* 


; Place 2nd 


add.w 


d3,d3 


;2U 


move . w 


d3,d2 


;2U 


add. w 


d3,d3 


;4V 


add.w 


d2.d3 


;6U 


asr . v 


»4,d3 


;6U/16 


sub. v 


d3,dl 


;3i2 - <6U/ 


lsr.w 


• 2.dl 




move . w 


dl,<aO)* 


.•Place 1st 


move .w 


dl, (a0)4 


; Place 2nd 


add.w 


#l,dO 




cmp . w 


#$0200. dO 




bne 


«Ka*eLoop 




trovt . 1 


♦ $00000200. dO 


;U value 


clx.l 


d4 




enakeNegLoop 




;5X2 


move.w 


1312. dl 


move . w 


d0.d2 


;U 



ri mmn rrr CUCCT /Dl II P 
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or .w 


^SFCOO , d2 




nov« . w 


d3 . d3 




add. v 


d2.d2 




add.w 


31.32 




a 3 * • w 


$2.32 




move . w 


32,<a0)- 




move . w 


32, laOJ* 




add.w 


d3,d3 




move. w 


d3.d2 




oQO * w 


d3,d3 




add.w 


d2,d3 




asr .w 


»4,d3 




sub.w 


d3.dl 




asr . v 


• 2 f dl 




move . w 


ai , \ an i ♦ 




move . w 


dl. Ia0) + 




add.l 


1 1 . dO 




add, I 


#l,d4 




crop • w 


#$0200, d4 


• 


one 


CMAk^NeaLoOO 




mo vera. 1 


rf4-d7/a3- 






a6 




res 












macro 






rixov 






mov«.v 


r \r repi 




clr.b 






andi.w 






sne 


aOfi 




beet 


U3 f fcSPl 




seq 


iSF2 




or .b 


&SF1.&V 




and.w 


45F2.W 




swap 


tv 




move . w 


&V.&SP1 




clr.b 


&SP1 




andi.w 


*$3FFT,&SF1 




sne 


iSFl 




best 


#13,ASF1 




seq 


&SP2 




or.b 


ASP1,4V 




and.w 


4SF2. *V 


* 


swap 






endm 





,*2U 
;2U 



512 



Place 1st word 

Place 2nd word 

2U 

2U 

4U 

6U 

6U/16 

512 - (60/16) 



: Place 1st word 
r Place 2nd word 



reecore registers 
remove locals 
return 



if t TYPE I *3eo' )#' UNDEFINED' then 

9 e9 *seg 

«ndif 



YUV2RGB4 
« 

PS 

Table 



rune 



RECORD 
DS.L 



EXPORT 

8 

1 



ciiocrtTMTc cucrr rm n P 9fn 
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CS.L 


^ 1 


y 


DS.L 


1 




rs.L 


1 


V 


DS.L 


1 


area 


CS.L 


1 


width 


DS.L 


1 


cols 


DS.L 


i 








IS 


RECO-O 


0 , DECK 




DS.L . 


1 


width 


DS.L 


1 


fend 


DS.L 


1 


count 


DS.L 


1 


LSne 


EQU 


• 




ENDR 





'void YUVtoRCBtPtr TablePtr. long *pixmap, short •Yc. short 'Uc, shore *Vc, long area.l 

M 

•long inc. lwidth. fend. count ; 



aO - Y0. 


al - Yl. a2 - 0. a3 - V, a4 


- pmO , aS * pral 


d0..6 - 


used, d7 - count 




link 


a6. ILS.LSize 


; s a ve 1 oca 1 s 


mo vein. 1 


d0-d7/a0-a5, -<a7) 


; store registers 


meve . 1 


PS.pixroap(a€) ,a4 


; pmOxpixmap 


move . 1 


a4,*5 


; pmlapmO 


mov« . 1 


»S.Y(a6).aO 


7 YOsYC 


move . 1 


aO.al 


; YlsYO 


move.l 


PS.U(a6) ,a2 


; U»Uc 


move. 1 


PS.V(a6) ,a3 


; V.Vc 


move . 1 


F$.aree(a6),d7 


; i end » area 


lsl.l 


• 2,d7 


fend<<=2 


add.l 


a4.d7 


; fend**pm0 


move. 1 


d7.LS.fend(a€) 


• save tend 


move . 1 


PS.width(a6) ,d5 ■ , 


• widthrvidth 


move . 1 


d5.d7 


count »vidth 


asr . 1 


«l,d7 ; 


count>>*l 


subq. 1 


#l.d7 


count -=1 


move. 1 


d7. PS. width <a6) 


save width 


add.l 


d5,d5 


width*=2 


add.l 


dS.al 


Yl*=vidth 


add.l 


d5.d5 


width # *2 


move . 1 


dS.LS. width <a6) 


save width 


move . 1 


PS. coll fa€) ,d4 


inc=cols 


lsl.l 


#2.d4 


inc«*2 


add.l 


d4,a5 


pcU + s inc 


add.l 


d4.d4 


cols«s2 


sub.l 


d5,d4 


inc now 2*cols-vidtri bytes 


move. 1 


d4 . LS. inc Ia6) 


save inc 


move.l 


*6,-<sp> 




move.l 


PS.Table(a6) ,a6 




Colors wanted are: 





REX) a IY ♦ 2V ♦ 512) / 4 UTable part is for (2V 512) 

GRE£N = (Y - V ♦ 512 - (60/16)) / 4 UTable part is for (512 - (60 

BLUE • (Y + 2U * 512) / 4 UTable part is for (2U * 312) 

Pdo ; uv2rgbf *iu*. »v**l 
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dl - ra 

move . w 
beq 
and. w 
move . X 
move . 1 
move . 1 
5Did0uickU 

move . w 
beq 

move . w 
asr . v 
sub. w 
move . v 
swap 
move . v 
move . 1 

and. w 
move . 1 
move . 1 
bra 

GDoOuickU 

move . X 
move . 1 
move . X 
bra 

eDoQuickV 

move, 1 
move. 1 
move . 1 



. £2 



Engineering : Kl icsCode :Comp?ict :7able.a 
- ca. d3 - ba. d4 - rb. d5 - gb/512. d6 - bb 



(a2)+.d2 
SDoOuickU 
•$03FF.d2 
Ia6,d2.v8) ,d3 
d3.d6 

4<a6.d2.w8).d5 

(a3>*.dl 

SDoCuicKV 

dl,d4 

#2,dl 

dl.dS 

d5,d2 

d5 

d2,d5 
d5,d2 

•S03FF,d4 

<a6, d4.W8) ,d4 

d4,dl 

«TestEnd 



*S00800080,d3 

d3,d6 

d3.d5 

«DidOuickU 



d5.d2 

#500800080, d4 

d4,dl 



U 



: SLUE. Get (2U ♦ 512 )/4 ior Blue r (Y * 
; Dup for second pair 

;CREEN, Get (512 - (6U/16JJ/4 for Gree. 



;if zero chen handle using the quick m 
; GREEN. Get (312 - (6U/16) - V)/4 for ■ 

;Dup for second pair 

;RED, Get 12V + 512) /4 for Red a (Y ♦ 



BLUE, Get (20 ♦ 512) /4 for Blue » (Y ♦ 
Dup tor second pair 

GREEN, Get (5X2 - (6U/16))/4 for Gree 



C*EE>I, Get (512 - (6U/16) - V)/4 for 
RED. Get (2V ♦ 512) /4 for Red - (Y ♦ 
Dup for second pair 



QTeatEnd 



add Ya to RGB values - FETCHY (aO) ♦,d0,dl,d2,d3 



move. 1 


<a0)*,d0 


asr.w 


12, dO 


swap 


dO 


asr.w 


«2.d0 


swap 


dO 


add.l 


dO.dl 


add.l 


d0,d2 


add.l 


d0.d3 


; add Yb 


CO RGB valu 


move . 1 


(al)+,d0 


asr.w 


»2.d0 


swap 


dO 


aar.w 


12, dO 


swap 


dO 


add.l 


d0.d4 


add.l 


dO.dS 


add.l 


d0.d6 


move. 1 


dl.dO 


or .1 


d4,d0 


or.l 


d2.d0 


or.l 


d3.d0 


or.l 


dS.dO 



Y is -128 to *127 

RED, Get (Y* 7V ♦ 512) for Red - (Y ♦ 
GREEW. Get (Y ♦ (512 - (60/16)) - V) 
BLUE, Get 1Y ♦ <2U ♦ 512) for Blue * ( 



RGB values - FETCHY2 (ai ) - , dO. d4 . d5 . d6 

;Y 



Y ia -128 to +127 

RED, Get (Y* 2V ♦ 512) for Red = (Y * 
GREEN, Get (Y ♦ (512 - (6U/16)) - V) 
BLUE, Get (Y ♦ (2U ♦ 512) for Blue « C 



cnnarnnr cwFFT (Rill F 9R\ 
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or . . 



d6.d0 



3ok 



and. I 




'SFFOOFFOO.dO 




br.e 




fiover 


; if over f ^ov 


save 


RGBa 


- MX RGB di. d2. d3 . (a4 J * 




isl.l 




• 8 ,d2 


; G=G0GC (12) 


or . 1 




d3 . d2 


; G=GBGB (12) 


rr.cv6 . 1 




dl,d3 


; B=0R0R (12) 






d3 


• BsOROR (21) 


move , w 




d2 . d3 




swap 






; G=GBGB (21) 


move.w 






; RsORGB (1) 


move . 1 




61, Ia4)* 


; •RGB*-»rgb (1) 


move . 1 




d3, (a4 


; *RGB*+=rgb (2) 


; save 


RGBb 


- MKRGB d4.d5,d6. (aSJ- 




isl.l 




fS.dS 


; G»GOGU Xld.) 


or . 1 




d6.d5 


; G=GBGB ( 12 ) 


move. 1 




d4,d6 


; B=0R0R (12) 


swap 




d6 


; BvOROR (21) 


move.w 




d5 . d6 


; B=0RGB (2) 


swap 




d5 


; C=GBGB (21) 


move . w 




d5.d4 


; RaORGB (1) 


move . 1 




d4, (a5>«> 


.* »RCB*-srgb (1) 


move . 1 




d6.u5)* 


; 'RGB^mrgb (2) 


dUbf 




d7,»do 


; while 


move. 1 




(sp)*.a6 




adda.l 




LS.inc (afi ) ,a4 


; pfnO*»inc 


adda.l 




LS.inc(a«) ,a5 


; pml+±inc 


adda.l 




LS. width (a6> , aO 


; YCU»width 


exg.l 




aO.al 


; Yl<->YO 


move. 1 




PS.widthla6) ,d7 


; counc -width 


cmpa.l 




LS.f«ndla6) . a4 


; pmO<fend' 


blew 




Sdo2 


; while 



mo vein. 

unlk 

res 



<a7)*.dO-d7/aO-a5 
a6 



restore registers 
remove locals 



edo2 



move.l a6.-(sp) 
now.l PS .Table<a6) . a6 

bra (?do 



@FixIt 

btst 
beq 
and.l 
QDlTopNotNeg 
btst 
beq 
and.l 
or.l 

0DlTopNotPOS 



#31, dO 

€ D 1 TopNo c Keg 

♦soooorrrr.dO 

#24, dO 

9DlTopNotPos 

♦soooorrrr.do 

♦ SOOFFOOOCdO 



btst 
beq 



•15. dO 

ODlBotNotNeg 



;See if upper word went negative 
;Pin at zero 

; See if upper word went too positive 

.-Mask old data out 
.-New data is ma>ed 



:See if lower word went negative 
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;Pin at zero 

;See if lower word wenc roo positive 

/Mask old data out 
.-New data is maxed 

res 



Gover 



move . 1 
bsr 

move . 1 


al , do 

mxit 

dO, dl 


move . 1 

bsr 

move . 1 


d2.d0 

9FixIt 

d0.d2 


move . 1 
bsr 
move, 1 


d3,d0 

«FixIt 

d0,d3 


move, 1 
bsr 

mov« . I 


d4,d0 

SFixIt 

d0.d4 


move. 1 
bsr 

move . 1 


d5,d0 

OFixie 

d0,d5 


move. 1 
bsr 
move. 1 


d6.d0 

OFixIt 

d0,d6 


bra 


9 ok 


ENDFOTC 




END 



and.l •SFFFFOOOO.dO 

eDiBocNotneg 

best • S.dO 

b*q eoiBotnotPos 

and.l ISFFFFOOOO.dO 

or. 1 •SO00OOGFF, dO 

SDlBotNotPos 
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Ail rights reserved . 
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* 

68000 KliCS 


L'l 1 1 it ies 








seg 


•klics- 






KLCopy 
• 


FUNC 


EXPORT 






KLCOPY ( short 


•arc, short *dst. 


int 


area) ; 


PS 
src 
dst 
end 


RECOKD 

DS.L 

DS.L 

DS.L 

ENDR 


8 
1 
1 
1 






• 


linJc 


a6 . #0 






• 

3do 


move . 1 
move . 1 
move . 1 
lsr.l 
subq.l 
move. 1 
move . 1 
move. 1 
move . 1 
move . 1 
move . 1 
move . 1 
move. 1 
dbf 


PS.src<a6l ,a0 
PS.dst(a€).al 
FS.end|a6> ,d3 
M.d3 
U.d3 

<a0)+. <al) + 
<a0)+. (all- 
laO)*, (al)-» 
<a0)*,<all* 
(a0)+. <al)* 
(»0)«, (al)* 
<a0>*. <al>* 
<aO*. ial) + 
d3 . Cdo 




; short "src 

; short •abt 

; long axea 

; in words <x8) 

; aroa-»l 

; *d3t**s*src*-»- 

; * dst src** 

; •dst**"*src*+ 

; •dst**» , src** 

; •dst**»*src*- 

; •dst**»*src** 

; # dst**» B src** 

; •dst**» p src*+ 

; if -l!»--area goto dc 


* 


unlk 
rts 


a6 




; remove locals 
; return 




ENDFUNC 








KLHalf 


FUJJC 


EXPORT 






KLHALrtshort "src. short # dst. long width, long height); 
* Dimensions of dst (width, height) are half that cf src 


PS 

src 

dst 

width 

height 


RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 


8 
1 
X 
1 
1 






• 


link 

moven . 1 , 


a6. #0 
d4,-(a7) 




; no local variables 
; store registers 


» 


move . 1 
move . 1 


FS.srclab'KaO 
PS. dst «a6l .al 




; short *src 
; short *dst 
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move. 1 ^FS.width(a6) ,d2 

rnove. 1 FS. height (a6) . d3 

suJbq.l *l.d3 ' 

?do_y move .1 d2 , d4 

isr.l «2,d4 

subq.l #l.d4 

?do_x nove . 1 (aOW.dO 

nove.w (aOt*.dO 

addq.l *2.a0 

nove . 1 dO, (al ) + 

move.l <aO)*,dO 

move.w (aO)*.dO 

addq.l #2,a0 

move. 1 dO. (al)* 

dbf d4 . «do_x 

adda.l d2.a0 

adda.l d2.a0 

adda.l d2.«0 

adda.l d2.a0 

db£ d3.fido_y 



long width 
long height 
height - = 1 
countswidth 
count / - 2 
count- =1 
dO=*src** 
dis'crc** 
src*=l short 
"dst**=dO 
dOa*src*+ 
d2*»src+* 
src+=l short 
•dst**=dO 

if -1 ! =- -width goto do_x 
skip a quarter row 
skip a quarter row 
skip a quarter row 
skip a quarter row 
if -l!=--heighc goto do_y 





movetn . 1 


(a7)*,d4 


; restore registers 




unlk 


a6 


; remove locals 




res 




; return 




ENDFUNC 






KLZero 


FUNC 


EXPORT 




KLZERO ( Short 


•data, int axea); 




PS 


RECORD 


8 




data 


DS.L 


1 




end 


DS.L 


1 




• 


ENDU 






• 


link 


a6.*0 


; no local variables 




move, 1 


PS. data ia6) ,a0 


.* short *data 




move. 1 


F5.endia6) .d3 


: long area 




lsr.l 


#3.d3 


; in words (x4) 




suoq. 1 


*l.d3 


; area-sl 


Goo 


clr.l 


(aOi* 


; •d*t*+* , sre«>* 




clr.l 


taO)* 


; *dst+*=*src+* 




clr.l 


(a0> + 


; *djt**«»src** 




clr.l 


laO)* 


; •dst**e» arc** 




dbf 


d3 . ado • 


; if -l!»--area goto 




unlk 


a6 


; remove locals 




rts 




; return 




ENDFUNC 






CLEARA2 


FUNC 


EXPORT 





move . 1 
rts 

END 



10, a2 
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• © Ccpyr;cht 1993 KtlCS Limited 

• All rights reserved. 

• Written by: Adrian Lewis 

•••••••••••»/ 

:/?edef ?truct 



ir.t 


bpf_ir.. 




User - 




npf_cut . 


/• 


User - 




buf.size; 


/* 


User - 


Boolean 


intra. 


/• 


calc - 




auto^q. 


/• 


User - 




bu£_sw; 


/■ 


User - 


!loac 


quant , 


/• 


User - 




thresh. 


/• 


User - 




conpare. 


/• 


User - 




base ( 5] ; 


/• 


User - 


mt 


buffer. 


/• 


Calc - 




prevbytes, 


/• 


Calc - 




prevquact ; 


/• 


Calc - 


double 


tiHp.tjuant ; 


/• 


Calc - 



r - Bytes per frame in output stream 



Theoretical buffer on/off •/ 



) KlicsCDataRec; 



/• Calc - Current quantiser value quant •/ 



cypedef struct ( 

KlicsSeqHeader seqh; 

KlicsFrameHeader frtnh; 

KlicsEDataRec encd; 

Euffer bur; 
) KlicsERec, -KliCsE; 



p , inrTm , T r rtjtrrT mm c nc\ 
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© Copyright 1993 KXICS Limited 
All rights reserved. 

Written by: Adrian Lewis 



680X0 KlicsDecode code 

Fast code fcr: 

3/2 octave input stream 
2/1 octave output image 



seg 

include 
include 



•klics' 
•Bics3.a' 
' Traps .a ' 



machine 



MC68030 



Data stream readers: 

XDEt/TA . XVALUE. SKIPHUFF. X1NT 



Gdopoa 



Qdoneg 



macro 








XDELTA 


Laddr, (step, &ptr, (data, 


(bno, (spare 


buf _rinc 


tptr, idata, ibno 






buf jet 


tdata.Lbno 






beg. a 


equit 




• if zero write 


moveq 


#6, 4 spa re 




' sac up count 


buf_get 


4 data , &bno 




- read sign 


bne .5 


Odoneg 




if negecive -> 


buf_get 


&data. ibno 






dbne 


& spare . 0 dopes 




if --spare!»-l 


bne. a 


9indpos 






move . 1 


&data . & spare 




spare=data 


subq.b 


O.fcbn© 




bno- a 6 


lsr.l 


ibno. (spare 




spare>>=boo 


andi . w 


» S 00*? F, & spare 




spare AND* mask 


add, w 


*8 ,i spare 




spare+»9 


bra. s 


Owrite 






neg, w 


& spare 




bit*-=bita 


addq. 1 


#7 , (spare 




bita*»8 


bra.s 


fiwrita 






buf_get 


&data,(bno 






dbne 


(spare, Gdoneg 




if --spare! »-l 


bne.s 


0fndn«g 






move . 1 


(data, (spare 




spare*data 


subq.b 


#7,tbno 


i 


bno-»6 


lsr.l 


(bno, (spare 




spaxe>>*bno 


andi .v 


*$007F,(9par» 




spare AND» ma*k 
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add.w ^ 
neg .-w 
bra .5 


*8.ispare 

iapare 

Qwricc 


: spa re* =9 


? f ndneg 


sucq. 1 


*7 . ispare 


; level-=8 


?wri:e 

?QU 1 t 
* 


Is: -w 
swap 
add . w 
swap 
add .w 

end™ 


iscep. ispare 
iscep 

iscep. ispare 
iscep 

ispare. iaddr 


; level<<=scep 
; •addr=delta 


■ 


macro 
XVALO 


iaddx . istep, iptr . idaca. ibno. & spa re 




clr - w 

bu ferine 

buf_get 

beq.s 

moveq 

buf^gec 

bne . s 


& spare 

iptr, idaca, ibno 

idaca. ibno 

equit 

•6. ispare 

idata.ibno 

Qdoneg 


; 

; if xero write 
; set up count 
; read sign 
.- if negative -> 


Gdopos 


buf_gec 
dbne 
bne . s 


idata.ibno 
ispare, Cdopos 
9 f ndpos 


; if --spare !«-! 




move . 1 
subq.b 
lsr.l 
andi. - w 
add.w 
bra .s 


idaca. ispare 
#7, ibno 
ibno. i spare 
•S007F. t spare 
#8. ispare 
ivnee 


; spareadata 

; bnO-e6 

; spexe>>*bno 

.- spare AND* mask 

; spare*»9 


ef ndpos 


neg.v 
addq.J 
bra. s 


ispare 

*7,£,spere 

fiwrice 


; bits-abita 
; bits+sB 


Sdoneg 


buf_get 
dbne 
bne. s 


idata.ibno 
ispare. edoneg 
Cf ndneg 


; if --spare !=-l 




move • 1 
subq.b 
lsr.l 
andi. w 
add.w 
neg. w 
bra . s 


idata. ispare 
tf 7, ibno 
ibno. i spare 
•S007P.ispare 
# 8, i spare 
ispare 
ewrite 


; spareadaca 

; bno-»6 

; spare>>*bno 

; spare AND* mask 

; spare*»9 


©f ndneg 


subq. 1 


#7, ispaxe 


; level-«8 


Swrite 


lal.v 

awep 

add.w 

swap 

move.v 


iscep, ispare 
istep 

iscep, i 3 pa re 
iscep 

ispare.iaddr 


; level<<«step 
; # addr- level 



fiquit 



endm 
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9 dopes 



macro 

XVAL1 

clr . v 
outline 
but _gec 
beq. s 
moveq 
buf_get 
bne . s 

buf_get 
dbne 
bne . s 

move . 1 
subq. b 
lsx.1 
andi .w 
add.w 
bra. s 



Gfndpos neg.v 
addq . 1 
bra. s 

3doneg buf_get 
dbnc 
bne. s 

move . 1 

subq.b 

lsr.l 

endi.w 

add.w 

neg.w 

bra.s 



taddr. istep. iptr, &da:a, ibno. ispare 



&spare 

iptr.idata.ibno 
tdata. ibno 

■3QUXC 

&data, &bno 
Gdoneg 



&data.ibno 
& spare. edepos 
Orndpoa 

&data . & spare 
*7,&bno 
tbno, ispajra 
•S007F. ispare 
"8, & spare 
Gvrite 

i spare 
♦7 . & spare 
ewrite 

A data, ibno 
ispare, «doneg 
Cfndneg 

*data.Lspax« 

#7,4bno 

&hno, (spare 

*$007F.&spare 

*G.&apare 

tapare 

ftwxita 



if rero write 
sec up count 
read sign 

it negative »> doneg 



--spare! 



sparesdata 
bno-*6 
spere>>=bno 
spare ANDs mask 
spare* =9 



bita-=bita 
bita*»6 



; if — cpaxe J 



apare»data 
bno-»6 
spare>>»fano 
spare AND* mask 
spare* a9 



Gvrite 
Qquit 



Sao 



Pond 
»quit 



subq. 1 


*7. & spare 


lal.w 


&scep. spare 


mov« . w 


t spare, &addr 


endm 




macro 




SXIPHUFF 


-per, 4 data. 


buf_get 


4 data, ibno 


beq.s 


9quit 


buf_get 


&data, ifano 


moveq 


•6 , i spare 


buf_gec 


tdata.Abno 


dbne 


fispare.edo 


bne. 9 


fiend 


subq.b 


#7 . tbno 


buf_rinc 


4ptx, idata. tbno 



level-*8 

level<<satep 
*addr» level 



if zero quit 
skip sign 
set up count 



if --spereia-1 



bno-»6 
fill buffer 



endm 



a ioctiti rrr rucrT tot it r *c*i 
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macro 



it; :cs.. iaddr. &3t ep. iptr. idaca . ibno 



Note: half_q is missing 



3pOS 

Gcont 



eshft 



epos 



c u r_iir.w 


ipt r , idac a , ibno 




move . 1 


idata.dO 


: reaultsdata 


sub.b 


ibits. ibno 


; di-=bits-l 


subq.b 


* 1 . ibno 


; dl-*l 


lsr.l 


ibno,d0 


; result>>«bno 


clr.l 


dl 


; dleO 


beet 


ibits.dl 


; dlfbitslsl 


subq. 1 


*l.dl 


; dl»maak 


btst 


&bics.d0 


; sign? 


beq. 9 


epos 


; it positive goto pos 


and. 1 


dl f d0 


; apply mask leaving level 


neg. 1 


dO 


; level-alevel 


bra . s 


econt 


; goto cone 


and. 1 


dl.dO 


; apply mask leaving level 


lsl.1 


ietep.dO 


; level<<=step 


move . w 


dO. iaddr 


; 'addr«result 


endm 






macro 






XI NT 


ibits. iaddr .istep, iptr.idata. ibno 


ivare constable version: sign mag < lsb->msb) 


buf.rinc 


iptr, idata.ibno 




move . 1 


idata.dO 


; resultsdata 


sub.b 


t bits, ibno 


; dl-.bits-l 


subq.b 


H.fcbno 


; dl-»l 


lsr.l 


Lboo.dO 


; t enrp>>» t*no 


clr.l 


dl 


; resultsO 


swap 


kbno 


; use free word 


move . w 


Subita, &bno 


; bnosbnc.bits 


subq. w 


rfl.Lbno 


; count*bits-2 


lsr.l 


tl.dO 


; shift msb from temp 


roxl.l 


• l.dl 


; into lsb of result 


dbf 


tbncfishft 


; for entire magnitude 


swap 


ibno 


; restore bno 


btst 


tO.dO 


; sign test 


beq. s 


fipos 


; if positive -> pos 


neg. 1 


dl 


; results -result 


131.1 


istep. dl 


; result<<>step 


move , w 


dl. iaddr 


; *addr= result 



endm 



Block data read/write: 
VOID, STILL, SDJD, LPFSTILL 



macro 

VOID *x_blk, iy_blk 

clr.w (a2) 
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addq.l 
clr .v 
adda.v 
clr .v 
addq.l 
clr . w 
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caddr* =x_blk 
caddr + «y_^>lk 



&x_blk.a2 
(a2) 

ty.blk.a2 
ia2) 

4x_blk.a2 
(a2) 



caddr*=x_blk 



endn 



mac re 

STILL tx_bik. ty_blk. tstcp 

XVALO ta2) . istep, aO. d6 , d7 , dO 

addq.l txJolk,a2 

XVALO (a2) ,4step,a0.d6.d7.d0 

adda.v &y_blk.a2 

XVALO ta2) , istep. aO, d6. d7 , dO 

addq.l ix_blk.a2 

XVALO Ia2).&3cep,a0.d6,d7,d0 



; caddx+"X_blk 
; caddr+*y_blk 
; caddx+=x_blk 



en<±it 

macro 

ST ILLS END 

XVAL1 

actiq.l 

XVAL1 

adda.w 

XVAL1 

addq.l 

XVKL1 

ends 

macro 
SOJD 

XDELTA 
addg. 1 
XDELTA 
adda.w 
XDELTA 
addq.l 
XDELTA 

endm 



fcx.blk. ty_blk, tstep 

<a2) ,iatep,a0.d6,d7,d0 
&x_blk,a2 

Ia2) ,iocep.a0,d6,d7.d0 
8yjblk.a2 

U2) ,*stap.a0.d6.d7,d0 
ixjDlk, a2 

Ia2),*step,a0,d6.d7,d0 



Lx_X>lk , tyjblk, *at«p 

<a2) ,istep.a0.d6,d7.d0 
6x_blk.a2 

( a2 ) , tat ep . aO . d6 , d7 , dO 
ty_blk.a2 

(a2) ,*step,a0.d6,d7.d0 
&x_blk.a2 

U2>.*stap.a0.ti6.d7 ( d0 



caddr+ax_blk 
caddr*=yjt>lk 
caddr+=x_blk 



caddr*=x_blk 
caddr+syjblk 
caddr*»x_blk 



macro 

LPFSTILL t*_blk, ty_blk, tstep. tbita 

XINT tbits. (a2) , tstep, a0.d€.d7 

addq.l tx_blk. a2 

XINT tbits, (a2> ,*atep,a0,d6,d7 

adda.w ty_blk,a2 

XINT tbita. <a2) ,tstap,a0.d6.d7 

addq.l tx_blk.a2 

XINT tbita, <a2) , tstep, a0,d6,d7 



Readlnc (at baddx) 

caddr*sx.blk 

Raadlnc 

caddr*«y.blk 

Raadlxit 

caddr+=x_blk 

Readlnt 



CllOCTmiTC CUCCT /OI« c 
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Data skippinfl: 

£xiP4, stillsk:?. ss.skip. sendskip 



SKIP4 


FUNC 


EXPORT 








buf.nnc 


a0.d6.d7 


; fill buffer 




SKiPKurr 


a0.d6,d7.d0 








skipkutp 


a0.d6.d7,d0 








SXIPHUTT 


a0.d6.d7, dO 








SKIFHUFT 


a0,dfi.d7,d0 








rts 










ENDFUNC 








STILLSKIP rrac 


r\J Hi 








buf.rir.c 


aO.d6.d7 


; BUF.INC 






buf_get 


d6,d7 


; BUF.CET 






beq.s 


9skl 


; if 0 the 


STOP 




bsr 


SKIP4 








buf.rinc 


a0.d6.d7 


; BUF. INC 






buf_get 


d6.d7 


; BUF.GET 






beq.s 


9sk2 


; if 0 che 


STOP 




bar 


SKIP4 








buf_rinc 


a0.d6.d7 


: BUF. INC 




9sk2 


buf_get 


d6.d? 


; BUF.GET 






beq. s 


0sk3 


; if 0 che 


STOP 




bsr 


SKIP4 








buf _rinc 


a0,d6.d7 


; BUF.INC 






buf.get 


d6.d7 


; BUF.CET 






beq.s 


9nxt 


; if 0 Che 


STOP 




bsr 


SKIP* 






Onxt 
• 


res 










ENDFUNC 








SS_SKIF 


FUNC EXPORT 








buf.rinc 


a0,d6.d7 


; BUF. INC 






buf _gec 


d6,d7 


; BUF.GET 






beq.s 


9 ski 


; if 0 Chen 


STOP 




buf_get 


d6.d7 


; BUF_GET 






bne.s 


9skl 


; if 1 then 


VOID 




bsr 


SXIP4 








buf.rinc 


a0,d6,d7 


; BUF_INC 




6skl 


buf_get 


d6.d7 


; BUF_CET 






beq.s 


93*2 


; if 0 then 


STOP 




buf _gec 


d6,d7 


; BUF .GET 






bne.s 


9sk2 


; if I chen 


VOID 




bsr 


SXIP4 








buf_rinc 


a0.d6.d7 


; BOF_INC 




9sk2 


buf.gec 


d6.d7 


; BUr_GET 






beq.s 


9sk3 


; if 0 chen 


STOP 




buf.get 


d6.d7 


; BUF.CET 






bne.s 


9sX3 


; if 1 then 


VOID 




bsr 


SKIP4 








buf_rinc 


aC,d£,d7 


; BUF. INC 




9sk3 


buf_get 


d6,d7 


; BUF_GET 


STOP 




beq.s 


9nxt 


; if 0 then 




buf .get 


d€.d7 


; BUF_CET 





sinsnTinr shfft m\n f ?fn 
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tne.s ^ 


«nxt 


: if 1 then VOID 




bar 


SKIF4 






rts 








EMDFUNC 






sendsk: 

• 


? FUNC 


EXPORT 






ou t H r x nc 


fl n ,4c h*? 


DTTT TMl" 




bu t QGC 


d€ . d7 


nrTv n~T 




Kaa e 


■ 


i * ft r K« CTCtP 

* it u cne sivr 




bvi t p 6 C 


HA *4*7 
Qu ( U ' 


bite* rrr 




beq. s 


SskO 


; if 0 then ST ILLS DTD 




buf_ges 


d6,d7 


; BU7_GET 




beq . s 




; 11 0 tnen void 


esko 


bsr 


SKIP4 






buf.rinc 


a0,d6, d7 


; BOr.INC 


Gskl 


buf.get 


d6.d7 


; BOT_GET 




beq.s 


9sk3 


; if 0 the STOP 




buf_get 


d6.d7 


; BOT_GET 




■ s 








buffet 


d6.d7 


; BOT_GET 




beq. s 


0sk3 


; if 0 then VOID 


9sk2 


bsr 


SKIM 






buf.rinc 


a0.d6.d7 


; BUT. INC 


@sk3 


buf_g«t 


d6,d7 


; BOT.GET 




beq. 3 


OskS 


; if 0 the STOP 




bo f_ get 


d€.d7 


? BUF_GET 




MQ. S 


M .Li 


* i # t\ + Y\ m>tt t enm 

. IX j cc en 5Tiu«bLND 




buffet 


d€.d7 


; BOT.CTT 




beq.s 


0sk5 


; if 0 then VOID 


Qski 


bsr 


SKIF4 






buf_rinc 


a0.d6,d7 


; BOT.INC 


OskS 


buf_gec 


d6 . d7 


r BUT_GET 




beq. $ 


€nxt 


; if 0 Chen STOP 




buf_gec 


d6,d7 


; BUF.GET 




beq. s 


Ssk6 


; if 0 then STILLSEND 




buf.get 


d6.d7 


; BUF.GET 




beq.s 


Qnxc 


; if 0 then VOID 


«sk6 


bsr 


SKIT A 




enxt 


res 








ENDFUHC 







Octave Processing: 

DOSTILLO, DOSENDO. DOSTILLl, 
DOVOID1. DOSTILLSEND1, DOSQJD1 



DOSTILLO FUNC . EXPORT 



CUDCTtTllTC CUCrT /DIM C 1K\ 
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bu ferine 
but _get 
bne . s 
res 

?still move.l 

STILL 

XVALO 
addq.l 
XVALO 
adda .w 
XVALO 
addq.l 
XVALO 

bsr 
res 

ENDFUNC 
DOS EN DO FUNC EXPORT 



a0.d6,d7 
d6.d7 

est ill 



al,a2 
*4.d5,d3 

'a2i ,d3,a0.d6.d7.d0 

♦ 4.42 

(aJ),d3.aO,d6.d7,dO 
d3.a2 

(&2) .d3,a0.d«.d7.d0 
*4,a2 

(a2),d3.a0,d6.d7,d0 



STILLSKIP 



3 cone 



buf _rinc 
buf_get 
bne.s 
rts 

move . 1 

buf.get 

beq.v 

buf_o«t 

beq.w 

SEND 

X DELTA 

addq. 1 
X DELTA 
adda. w 
XDELTA 
addq. 1 
XDELTA 

bar 
rts 



a0,d6.d7 

d6.d7 

econt 



al.*2 
d6.d7 

d6.d7 
6vd 

*4,d5.d3 

(a2).d3.a0.d6.d7,d0 
M.a2 

<a2) .d3,a0,d6.d7.d0 
d5.«2 

(a2) .d3.a0,d6.d7,d0 
M.a2 

(a2),d3.a0.d6,d7,d0 
SENDSKIP 



@93 



; STILLS END M,d5.d3 



«vd 



XVAL1 

addq. 1 

XVAL1 

adda .w 

XVAL1 

addq.l 

XVALl 

bsr 
res 

; VOID 



buf_:nc 

BUF.CET 

if 1 the STILL 



; eaddr = baddx 



caddr*rx_blk 
caddr*»y_blk 
caddrt=x_bl3c 



(a2) # d3 # a0,d6,d7,d0 
M,a2 

<a2) ,d3 f a0.d6.d7.d0 
d5,a2 

(a2) .d3,a0, d6,d7.d0 
• 4*2 

(a2) ,d3,a0. d6.d7.d0 
SS.SKIP 

M.d5 



buf.inc 

BVF_GET 

if 1 then continue 



caddxxbaddr 
BUF_CET 

if 0 then ST ILLS END 

BOF.GET 

if 0 then VOID 



caddr-=oc_blk 
caddr**y_blk 
caddr*ex_blk 



caddx*sx_blk 
caddr**y_blk 
caddr*rx_bl k 



ctiRQTiTiiTC ewerr r pi tt c 
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Gnext 



clr.v ^ 


(a2> 


addq. 1 


m . a*? 


clr.v 


<a2) 


adda. v 


d5,a2 


clr.v 


(a2 ) 


addq.l 


M.a2 


clr . v 


<a2) 


res 




ENCJTNC 




macro 




DOSTILLl 


&addx 


buffet 


d6,d7 


beq. w 


6 next 


move. 1 


al,a2 


add.l 


4addr,a2 


STILL 


»4.d5,d4 


bar 


ST ILL SKIP 


buf_rinc 


a0,d6,d7 
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caddr*rx.biJc 
caddr*ry_blk 
caddr*=x hlk 



BUF.GET 

if 0 the STOP 

caddr=baddr 
caddr+=addrs 1 1] 



BUF_INC 



6aa 



finext 



DOSTILL2 



endm 




macro 




DOVOID1 


iaddr 


move . 1 


el,a2 


add.l 


iaddr.a2 


VOID 


#4.d5 


endtn 




macro 




DOSTILLSEND1 iaddl 


bu£_gec 


d6.d7 


beq* w 


•next 


move. 1 


al.a2 


add.l 


*addr.*2 


buf_ gee 


d6,d7 


beq. s 


938 


VOID 


M.dS 


bra 


6nexc 


STILLS END 


M.d3,d4 


bar 


SS_SKIP 


buf.rinc 


a0,d6,d7 


erxfrn 




FUMC 


EXPORT 



bu£_rinc 
buf_yet 
bne.s 
rci 



a0,d6,d7 

d6,d7 

Scent 



caddr^baddr 
caddr+=addrs|ij 



it 0 the STOP " 
caddrsbaddr 
caddr+saddrs fll 
BOT.GET 

if 0 than ST ILLS END 



BUF.INC 



BUF.INC 
BUF_GET 
if 1 the CONT 



Scont move . 1 



al.*2 



caddrsbaddr 



SI IRKTITI ITF SWPPT mi HF5fi» 
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add.l ~ 


<a3) .a2 


STILL 


«B.d5 


d3 


5 Wflp 


d5 






d4 . a5 




tuf_r;r.c 


aO.dfi. 


d? 


DC st ill; 


4 . a3 ) 




co still: 


8(a)) 




DOSTILLi 






DOSTILL1 


16U3) 




swap 


d5 




exg 


d4,a5 




res 






macro 






DOSEND1 


iaddx 
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.- caddr*=addxs( 0) 



BUF.INC 



09S 

9rinc 
wnext 



beq.w 

move . I 

add.l 

buf_get 

beq.w 

buf_gec 

beq.w 

SEND 

bsr 

bra 

VOID 
bra 

STILLSEND 
bsr 

bu ferine 



d6.d7 

9 next 

al.a2 

iaddr, a2 

d6.d7 

9ss 

d6.d7 

evd 

M.d5.d4 

SENDSKIP 
flrinc 

*4.d3 
flnext 

M,d3.d4 

SS.SXIP 
a0,d6. a7 



BUF.GET 

if 0 the STOP 

caddx.baddr 

cadd2>*addrs(l J 

BUT_CET 

if C Chen STILLSEND 
BUP.3ET 

if 0 then VOID 



BUT. INC 



res END 2 FUNC 



EXPORT 



£nxt 
Ocont 



buJ_rinc 
buf.oec 
bne. s 
rts 

move . 1 

add.l 

buf _oet 

beq.w 

buf_get 

beq.w 



a0.d6.d7 
d6,d7 
9 c one 



al.a2 
1*3) ,a2 
d6,d7 

ess 

d6.d7 
Ovd 



but.inc 

BUT.GET 

if 1 the CONT 



caddr*baddr 
eaddr -madeira {0} 
BUr.CTT 

if 0 then STILLSEND 

BUF_G£T 

if 0 then void 



SEND 



SEND 

buf _rinc 
DOS END 1 
DOSEND1 



«8.dl,d3 

a0.d6,d7 

4<aJ) 

8(a3) 



BUF_INC 



SUBSTITUTE SHEET (RULE '2ft 
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DOSEND1 
DOS END 1 
res 
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12 Ia3) 
16(a3) 



S7ILLSZND 

3ss STILLS EOT "8,dl.d3 

bu£_rinc aO.dCd" 
DOSTILLSEOTl 4(a3) 
DOST I LLSEND1 S(a3) 
DOSTILLSEND1 12ta3> 
DOSTILLSDJD1 16 (a3) 
rts 



; 3UF.INC 



VOID ••• 
3vd VOID 



DOVOID1 
DOVOID1 
DOVOID1 
DOVOID1 
rt3 

ENDFUNC 

macro 
UVSTILLO 



#8,dl 

4<a3) 
8<a3> 
12(a3) 
16<a3) 



Lov_Pas3 

move. 1 
LPF STILL 

Sub- band gh 

addq.l 
bsr 

Sub- band hg 

subq.l 

add-1 

bsr 

Sub-band gg 

addq. 1 
bsr 
sub.l 
addq. 1 

endm 



al.a2 

M.d5,d2.d4 



#2, al 
DOSTILLO 



a4.al 
DOSTILLO 



#2, al 
DOSTILLO 
a4,al 
»6,*1 



; caddr-badd r 



baddr*s2 (gh band) 



; baddr-»2 (hh band) 

; caddr+»l' row (hg band) 



; baddr*?2 (gg band) 

; caddr-»l row (gh band) 
; (2*) addr(0]+«x_inc 



macro 
UVSENDO 



Lov.paaa 



buf_riac 

buf_get 

beq.w 



a0,d6,d7 

d6.d7 

@subs 



BOF.INC 
BUT_GET 

if 0 then process aubb&nda 



SUBSHTIITF SHFFT mm F ?tt 
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move . 1 - 
SEND 

* 

Sub- band gh 

3 subs addq.I 
bsr 

Sub- band ng 

subq . 1 
add. 1 
bsr 

* Sub- band gg 

addq. 1 
bsr 
sub. 1 

endm 



Engineering: Ki icsCode : Ccrr.pPicc :K1 1 csDec2 . <a 

al -*2 . cadcr=baddr 

M.d5.d2 



• 2,al 
DOSENDO 



*2.al 
a4,al 
DOSENDO 



42. al 
DOSENDO 
a4,al 
*6,al 



baddr-=2 (gh banc) 



caddr-=2 fhh band) 
caddr*=l row ihg band) 



baddr*s2 (gg band} 

caddr-el row (gh band! 
(2*-) addr IOJ-=x_inc 



Decoder functions: 
Klics2DlScill. Klics2DlSend 



Klics2DlStill FUNC 



EXPORT 



Klics2DlStill (shore *dst, long siie^x. long siae_y. long lpfbits, short •norma 



PS 


RECORD 


8 


dst 


DS.L 


1 




DS.L 


1 


size_y 


DS.L 


1 


lpfbits 


DS.L 


1 


norms 


DS.L 


1 


per 


DS.L 


1 


dara 


DS.L 


1 


ono 


DS.L 






ENDR 




LS 


RECORD 


0. 


x_lim 


DS.L 


1 


x_linc 


DS.L 


1 


y.incO 


DS.L 


1 


Y-incl 


DS.L 


1 


y_lim 


DS.L 


1 


LSize 


EOO 


• 




ENDR 





DECS 



x counter termination row_start« 

x termination increment 1 row 

y counter increment 4 rows- 

y counter increment 7 rows 

y counter termination area 



dO/dl 



spare 



d2 - step 0 (HH) 
d3 - step 0 
d« - lpfbits 
d5 - y.blk 

d6 - data (bit stream) 
d7 - bno (bit pointer) 



SUBSTITUTE SHEET (RULE 261 



WO 
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aO - ptr ;bic buffer) 

al - baddr (block address) 

a2 - caddr tcoeff address) 

a3 - x_lim 

a4 - x_linc 

a5 - y_inc0 



« laat 



link 


a6, tLS.LSiie 


: locals 


novem. 1 


d4-d7/a3-a5, - U7 ) 


; store registers 


d Bit Buffer 




move . X 


PS. data Ia6) , aO 


; aO=*data 


move . 1 


(a0),d6 


; data«*aO 


move. 1 


PS.bno(a6) , aO 


; aOr&maak 


move . 1 


ta0).d7 


; mask» v aO 


move . 1 


PS. per <a6) ,a0 


; aO=4ptr 


move . 1 


(aO) ,a0 


; aO=ptr 


Up Block 


Counters 




move » 1 


PS dst < a6 ) . al 


( oji — jLiaoy c 


move • 1 




; dOssize_x 


duu* J- 


fin ma 


; in shorts 


move # 2 


oo. LS.x_u.nc ( ao j 


; x w linc*l row 


move * 1 


PS . size _y ( a6 ) • dl 


; dlasize_y 


muls . w 


dO i dl 


; dl**dO 4 area) 


add. 1 


al.dl 


; dl*»imaga 


move . 1 


dl i ls . y_i lmi ao i 


; y_lijn»d2 


move . 1 


00 , Q2 


; d2=d0 (1 row) 


add.l 


dO.dO 


; d0*=*2 (2 rows) 


move.l 


dO.dS 


; yjblk»d0 


■ ■ . t-. r-w 1 

9UDQ , 1 


A A MM. 

94 » as 


; y_blk-*x_blk 


aoa. l 


au , au 


; d0*a2 (4 rows) 


move .1 


au , ls .y.inco ( ao i 


; y_incO«dO 


aoa. i 


a<\ tin 
ou , ou 


; d0*»2 (8 rows) 


sub. 1 


d2 ,dO 


; d0-.d2 n rows) 


move.l 


d0.L5.y_incl(a«» 


; y_incl»dO 


move. 1 


PS.ncnns ia6 ) , a2 


; GetNorm pointer 


move.l 


(a2).d2 


: read normal 


move. 1 


4(a2).d3 


read normal 


move . 1 


FS.lpfbits(a6) ,d4 


; read lpfbits 


move. 1 


LS.x_linc <a6) • a4 


; read x.l.inc 


move. X 


LS.y.incO (a6> . a3 


; read y_incO 


move. 1 


a4.a3 


,* x_lim»x_linc 


add.l 


al.a3 


; x_l inv* ^baddx 


UVSTILLO 




: process 0V block 0.0 


UVSTILLO 




; process UV block 1,0 


add.l 


45, Al 


; ( 2 ) addr ( 0 ] + =y_inc 


cmp. 1 


LS.y_lijn<a6) ,al 


; (2*) addr(0]-limit? 


bga.w 


eiast 


; if half height 


sub.l 


#16. al 


; point er=bl k <0, 1) 


UVSTILLO 




; process UV block 0.1 


UVSTILLO 




; process UV block 1.1 


sub.l 


a5,al 


; (2) addr (0) ♦cy.inc 




aJ.al 


; (2*) addr (0] -limit? 


blt.w 


•x 


: (4) if less then loopX 


add.l 


LS.y_incl(a6),al 


; (2*) addr (0]**y_inc 


cusp ■ 1 


LS.y_liaUa6) .al 


; (2^) addr (0) -limit? 


blew 


*Y 


; (4) if less than loopY 
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Save Bit Buffer 



move . I 


FS.data<a6) ,a2 


; spare»idata 


move . 1 


d6. (a2) 


; update data 


move . 1 


PS.bnola6),a2 


; sparer 4 bno 


move . I 


d7, (a2) 


; update bno 


move - 1 


PS. per (a6) , a2 


: spare»4ptr 


move . I 


aO. ia2) 


.- update ptr 


movwn . 1 


(a7)*.d4-d7/a3-a5 


; restore registers 


unlk 


a6 


; renove locals 


rts 




; return 


ENDFUNC 







Klics2DlSend 



FUNC 



EXPORT 



Klics2DlSend( shore *dst. long si2e_x, 


long size_y, short *norms. 


PS 


RECORD 


8 




dst 


DS.L 


1 




size_x 


DS.L 


1 




sixe^y 


DS.L 


1 




norms 


DS.L 


1 




per 


DS.L 






data 


DS.L 


1 




bno 


DS.L 


1 




• 


DJDR 






US 


RECORD 


O.DECR 






DS.L 


1 


; x counter termination 


x.linc 


DS.L 


1 


; x termination increjnant 


y_incO 


DS.L 


1 


; y counter increment 


y_incl 


DS.L 


1 


; y counter increscent 


y_lim 


DS.L 


1 


; y counter termination 


LSize 


EOU 


• 






ENDR 






• dO/dl - spar* 




d2 


- step 0 


( HH ) 




d3 


- atep 0 






d4 


- y_inc0 






d5 


- y-blk 






d6 


- daca 


(bit stream) 




d7 


- bno 


tbit poxneer) 




aO 


- ptr 


(bit buffer) 




al 


- baddr 


(block address) 




a2 


- caddr 


(coeff address) 




a3 


- x_lijn 






a4 


- x_line 






a5 


- y_lijn 








link 


a6. #LS. LSize 


; locals 




roovero. 1 


d«-d7/a3-a5.-<a7) 


; store registers 



row_start* 
1 row 
4 rovs 
7 rows 
area 



Load Bit Buffer 

roove.l PS. daca (a6) ,*0 

raov*.l (a0),d6 

move.l PS.bno<a6) ,*0 

move.l U0).d7 



aO«£data 
data**aO 
a0»&raask 
maek»»aO 



siirstitiitf shfft tmn f og\ 
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ex 



rr-ovf-.l 
move. 1 



PS.ptr<a6) ,a0 
(aO) .aO 



Sec Up Blcck Counters 



'last 



move.l 


PS.dst <a6) ,al 


move . 1 


PS. si2e fc x(a6» . dO 


add. 1 


dO.dO 


move . I 


dO. LS.x_Unc(a6) 


move . 1 


PS.si2e_y (a6) . dl 


mu 1 a . w 


dO.dl 


add.l 


al,dl 


move . 1 


dl, LS.y_Hm(a6) 


move . 1 


d0,d2 


add.l 


dO,dO 


move . 1 


dO.dS 


subq. 1 


• 4.d5 


add.l 


dO.dO 


move . 1 


dCLS.y inc0(a6) 


add. 1 


dO.dO 


sub. 1 


d2,d0 


move . 1 




move . 1 


PS. norms (a6 ). a2 


muVl 4 1 




move . 1 


4 <a2) , d3 


move . 1 


LS. x^linc t a6 ) , a4 


move . 1 


LS.y_incO (a6) , d4 


move • 1 


w» .y_i un( afc # , as 


move. 1 


a4,a3 


add.l 


al.a3 


UVStHDO 








add.l 


d4.al 


nnp. 1 


a3,al 


bge.w 


filast 


sub. 1 


»16.al 


UVSENDO 




UVSENDO 




sub. 1 


d4.al 


cmp. 1 


a3,al 


bit .w 


0x 


add.l 


t-S.y.incl (a6 ) .al 


cmp . 1 


a5.al 


bit .v 





aC=&ptr 
aOaptr 



; al = image 

; dO=size_x 

; in shorts 

; x_linc=l row 

; dl«aize_y 

; dl*=dO (area) 

; *dl*s image 

; y_limsdl 

; (±2 -dO (1 row) 

; dp*»2 (2 rows) 

; copy to d5 

; subtract xjblk 

; d0»s2 (4 rowa) 

; y_incO*dO 

; d0*=2 (8 rows) 

; dO- =d2 (7 rows) 

;> y_incl»dO 

; Get Norm pointer 
; reed normal 
; read normal 
; read x_linc 
; read y_incO 
; read y_lim 

: x_ lira* x. line 
; x^lim+sbaddr 
j process U" block 0.0 
; process UV block 1,0 
r (2) addr (0) + «y_inc 
■ (2) addrfOJ -limit? 
it half height 
pointor=blk (0, 1) 
process UV block.-O.l 
process UV block 1,1 
(2 ) addriOJ*»y_inc 

121 addrfOJ-linit? 
(4) if leas then loopX 
(2*) addr f0)-»«y-inc 
(2) addr [03 -limit? 
(4) if leas then loop* 



Save Bit Buffer 



move. 1 


PS.daca(a6).a2 


move . 1 


dfi. (a2j 


move . 1 


PS.bno(a6) ,a2 


move . 1 


d7, (a2) 


move.l 


PS.ptr(a6) ,a2 


move . 1 


aO. (*2) 


moven. 1 


(a7)*,d4-d7/a3-a5 


unlk 


a€ 


rts 




ENDFUNC 





; spare»idata 
; update data 
; spare »ibno 
; update bno 
; spare»*ptr 
i update ptr 

; restore recisters 
; remove locals 
; return 
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:'.lics3D2Still ' 



rr JNC 



LXPCRT 



* 

• k: 


iC-SJD2Stil l ( shcrt § dsc. ;cng size. 


.x. long sne_y. leng lpftics, 


fs 


RECORD 


8 




CSC 


DS.L 


1 




s:ze_x 


DS.L 


1 






DS.L 


i 




lp*bit 


S DS.L 


i 




norms 


DS.L 


1 




Ptr 


DS.L 


1 




data 


DS.L 


1 




tnc 


DS.L 


1 




sub.cab DS.L 


1 




• 


END* 






LS • 


RECORD 


0 . DECK 




y.blkO 


DS.L 


1 


; y inter-block increment 


y.blkl 


DS.L 


1 


; y inter-block increment 


x.inc 


DS.L 


1 


; x counter increment 


x.lim 


DS.L 


1 


; x counter termination 


x_Iinc 


DS.L 


i 


; x termination increment 


y_inc 


DS.L 


1 


; y counter increment 


y_lim 


DS.L 


1 


; y counter termination 


LSice 


EQU 


• 






ENDR 






•* dO/dl - spare 




• d2 


- Step 2HK 




• d3 


- step i 






d4 


- step O/lpfbits 




d5 


- y_bikO,y_blkl 




d6 


- data 


(bit stream) 




d7 


* bno 


(bit pointer) 




aO 


- per 


(bit buffer) 




al 


- baddr 


(block address) 




a2 


• caddr 


fcoeff address) 




a-3 


- addrs 


(tree addresses ) 




84 


- x_lim 


(x counter termination) 




a5 


- lpfbits/acep 0 






link 


a«. iLS.LSize 


; locals 




movem. 1 


d4-d7/a3-a5.-(a-n 


; store registers 


Load Bit Buffer 






move . 1 


PS. data (a6) . aC 


aOs&data 




move . 1 


<a0) ,d6 


; data^'aO 




move. 1 


PS.bno(a6) ,a0 


; aOs&mask 




move. 1 


(aO) ,d7 


; mask»*aO 




move. 1 


PS. ptr (a6) ,a0 


; aO*&ptr 


• 


move. 1 


(aO) , aO 


; aOsptr 


Set 

• 


Up Block 


Counters 






move. 1 


PS.dsc (a6> ,al 


; a 1= image 




raove.l 


PS. sne_x(a6) .dO 


; dOoiie.x 




move. 1 


#16,LS.x_inc(a6) 


; save x_inc 




add.l 


dO.dO 


; in shorts 




move. 1 


dO,LS.x_linc(a6) 


; x.lincal row 




move .1 


PS. ii2*_y la6i ,dl 


; dl*aize_y 




muls.w 


dO.dl 


; dl*»dO (area) 



2 rows - 4 
4 rows - 8 
16 

row.start* 
1 row 
7 rows 
area 
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move.l 
LFFSTILL 
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add.l 


al , dl 


jcve. 1 


dl.LS.y_lim(a€i 


move. 1 


d0,d2 


add. 1 




move . 1 


du,c5 - 


SvLOQ. 1 


• 4 . d5 


move . 1 


d5. LS.y_blkO ia6 ) 


dUU . i 


dO, d2 


add. x 


dO. dO 


movf . 1 


dO, 64 


SILDQ . 1 


#8,d4 


move. 1 


d4, LS.y_blkl (a6) 


add.l 


d2,dD 


nove . 1 


dO, LS.y_inc(a6) 


move. 1 


PS. norms (a6) , a2 


move. 1 


(a2) ,d2 


move.l 


4 fa2> ,d3 


move . 1 


8U2) ,a5 


move.l 


PS. Ipfbits<a6) ,d4 


swap 


dJ 


move.l 


LS-y_blklfa6),dO 


nvove.w 


dO.dS 


move. 1 


PS.aub_tabla6) ,a3 


move. 1 


LS.x_linc<a6> ,a4 


add.l 


al,a4 



al,a2 

»8.d5.d2,d4 



; dl+= image 

; y_lim=dl 

; d2ad0 (1 row) 

; d0«*2 (2 rows) 

; copy to d5 

• y_blk: subtract x.blk 

.* save y.blkO 

; d2*=d0 (3 rows) 

; d0*s2 (4 rows) 

; copy co d5 

; y.blk: subtract x.blk 

r save y_blkl 

; d0*-d2 (7 rows) 

' y.incadO 

GetNorra pointer 
read normal 
read normal 1 
read normal 0 
read lpfbits 
y_blk=00XX 
read y_blkl . 
dS.y^blkO/l 
a3=addrs 

x.lim»x_linc 
x_l ijn*»baddr 



caddrsbaddr 



bar 
add.l 



DOSTILL2 
#20, «3 



Sub- band hg 



bsr 
add.l 



DOSTILL2 
•20, a3 



Sub -band gy 



bsr 
sub. 1 



add.l 
cmp . 1 
blt.w 
add.l 
cmp. 1 
blt.w 

Save Bit Buffer 



DOST3LL2 
#40. ai 

#16. al 
&4 ,al 
ex 

LS.y fc incU€),al 
LS.y_lim<a6).al 



(2) addr £0) +»x w inc 
(2) addr (0] -limit? 
(4) if lei* then loopx 
(2*) addr[0J*»y_ijQC 
(2*) addrtOJ -limit? 
(4) if leas chen loopY 



Gend move.l PS. data (a€) ,a2 

move.l d€, (a2) 

move.l PS.bno<a6),e2 

move.l d7 f (a2) 

move.l PS.ptr<a6),a2 

move.l a0 f 4*2) 



aperea&data 
update data 
spare =tbno 
update bno 
spare *Aptr 
uodate ptr 
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movent. 1 


ta7U.d4-d"7/a3-a; 


; restore registers 




-unik 




; remove iccals 


• 


res 




; return 




ENDFUNC 






• 


2 Send 


TVHC EXPORT 




Klics3D2Send i short *dsc. long siie_x. 


long size_y, short *normi, 


DC 


RECORD 


8 




QSC 


OS.L 


1 




s ize_x 


DS.L 


1 




s i i e y 


DS.L 


1 




norms 


DS.L 


1 




per 


DS.L 


1 




data 


DS.L 


1 




bno 


DS. L 


1 




sub_tab 


DS.L 


1 




• 


ENDR 








RECORD 


O.DECR 




y.blkO 


DS.L 


1 


; y inter -block increment 


y_blkl 


DS.L 


1 


; y inter-block xncremant 


x_inc 


DS.L 


1 


; x counter increment 


x_lim 


DS.L 


1 


; x counter termination 


x_l inc 


DS.L 


1 


; x termination increment 


y_inc 


DS.L 


1 


; y counter increment 


y_l im 


DS.L 


1 


; y counter termination 


IS ±ie 


EQO 


• 






ENDR 






dO 


- apart 






dl 


- y.blkl 






d2 


- seep 2KH 




d3 


- seep 1 






d4 


- step 0 






d5 


- y_blkO 






d6 


- data 


(bit stream) 




• d7 - 


- bno 


(bit pointer) 




aO ■ 


■ PCX 


(bit buffer) 




al - 


- baddr 


(block address) 




• ■ a2 ■ 


■ caddx 


(coeff address) 




a3 - 


- addrs 


(tree addresses) 




a4 - 


- x_lim 


(x counter termination) 






link 


a€. *LS.LSire 


; locals 




movent. 1 


d4-d7/a3-a5, -(a7> 


; store registers 



2 rows - 4 
4 rows - 8 

16 

row_start« 
1 row 
7 rows 
area 



Load Bit Buffer 

move.l 
move). 1 
move. 1 
move.l 
move.l 
move. 1 



PS.data(afi) ,a0 
(a0),d6 
P£.bno(a6) ,a0 
<a0),d7 
PS.ptr (a6) ,a0 
(aO) , aO 



Set Up Block Counters 

move.l PS. dst (e6) .al 



aO=>tdata 

data**aO 

aOsbmask 

maak»*aO 

aO*fcptr 

aO?ptr 



al s image 
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fix 



move. 1 
move.l 
add.l 
move. 1 
move. 1 
mula . w 
add.l 
move . 1 
move . 1 
add.l 
move . 1 
rub©;. 1 
move . X 
add.l 
add.l 
move. 1 
subq. 1 
move . 1 
add.l 
move. 1 

move.l 
move . 1 
move * 1 . 
move. 1 
move. 1 
move.l 

move.l 
add.l 

LOW_P*S* 

bu ferine 
buf_get 
beg. v 
move. 1 
SOTO 

Sub -band gh 



Osubs 



bar 
add.l 



PS. size_x(a6 i .dO 
«16. LS.x.inc (a6) 
dO,dO 

dO, LS.x.Unc (a6) 
PS. size^y ( a6 ) . dl 
dO,dl 
al.dl 

dl,LS.y_Iijn(a6) 

d0,d2 

dD.dO 

d0,d5 

M.d5 

d5.LS.y_blkO<a6) 

d0,d2 

dO.dO 

d0,d4 

18, d4 

d4.LS.y_blkl(a6) 
62.60 

dO.LS.y_inc<a6) 

PS. norms (a6) , *2 
U2),d2 
4<a2).d3 
8(a2),d4 

LS.y_blkl<a6) .dl 
PS.sub_tab<a6) . a3 

LS.x_linc(a6).e4 
al.a4 



a0.d6.d7 

d6.d7 

Qiubs 

al,a2 

#8,dl.d2 



Sub -band hg 

bsr 
add.l 

Sub -band gg 

bar 
sub.l 

add.l 
uJia> * 1 
blt.w 
add.l 
ciup* 1 
blt.w 

Save Bit Buffer 



DO SEND 2 
#20, a3 



DOSEKD2 
*20.a3 



DOSEND2 
#40, a3 

tl6,al 
a4, al 
Ox 

LS.y_inc;a6) ,al 
LS.y_lim<a6) ,al 

*y 



d0=size_x 
save x_inc 
in shcrts 
x_linc=l rov 
dl=aize_y 
dl*»d0 (area) 
dl image 
y_lim*dl 
d2=d0 (1 row) 
d0*>2 (2 rowa) 
copy to d5 

y_blk: subtract x_blk 
save y_blkO 
d2 + -d0 (3 rows) 
d0*r2 (4 rows) 
copy co d5 

y_blk: subtract x_blk 
save y_blkl 
d0*rd2 (7 rows) 
y.incsdO 

Get Norm pointer 
read normal 
read normal 1 
read normal 0 
read y.blkl 
a3*addxs 

x_lim»x_linc 
x_liro+»baddx 



BOF.INC 
BOF.GET 

if 0 then process subbands 
caddr»badd* 



(2) addr [0] *«x_inc 
(2) addrfOJ -limit? 
(4) if less then loopX 
(2*) addr(0)*«y_inc 
(2+) addrlOJ -limit? 
(4) if less then loopY 
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3end 



m$ve .1 


PS . data ( a 6 J . a2 


; spare»idata 


move. 1 


c6,(a2} 


: update data 


move . 1 


FS.bno ia6 i ,a2 


: spare stbno 


move . 1 


d7,(a2) 


. upda c e bno 


move. 1 


PS.per.ia6) .a2 


. spare^&per 


move . 1 


aO. ia2) 


; update per 


movem. 1 


(a*7) *,d4-d*7/e2-a5 


; restore registers 


unl* 


a6 


; remove locals 


res 




; return 


ENDFUNC 







END 
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• -t Copyright 1993 KLirs Limited 
All rights reserved. 

* written by: Adrian Lewis 



» Importing raw Klics binary files 
Stand-alone version 



^include 
* include 
* include 



■Bits3.h" 
•Klics. h - 
'KlicsHeader.h* 



cypedef char 



Boolean,* 



/• If bool true the negate value •/ 

•define negiffbool, value) < (bool)?- (value) : (value) ) 



extern void HaarBackvardt ) ; 

extern void DauJb4 Backward (shore *data,int size(2],int oct.sro ; 

extern void TestTop*ackward( short •daca.int si2«(2],inc oct_sro ; 

extern void TestBeckward (short »data.int size(2),int oct_src) ; 

extern void KL2CSBCKANNEL ( short *dst. long octs, long size_x. long sixe^y, Ion- 

/• Use the bit level file macros <Bits2.h) •/ 

/* buf.use; •/ 



/• Huffman decode a block •/ 
#define Huff DecLev( lev, buf) \ 
lev(0)=Huf fDecode(buf ); \ 
lev(l)=Huf fDecode(buf ) ; \ 
lev (2] .Huff Decode (buf ); \ 
lev(3]=Huf fDecode(buf ) ; 



/* Fixed length decode block of integers •/ 
•define IntDecLevt lev, lpf.bits, buf ) \ 
lev(01 = IntDecodeMpf_bita.bun ; \ 
lev(l).lntDecode(lpf_bits,buf ) ; \ 
lev[2J»IntDecode(lpx_bits,buf ) ; \ 
lev(3 JaintDecode ( lpf Jbits. buf ) ; 



/• Reverse quantize difference block */ 

•define RevQntDeita (new, old* lev, shift ) V 

new(0)=oldfOJ* <lev[0)«shift) ♦ ( lev(O) ! =0?negif ( lev( 0) <0 , ( l<<shif t ) -1>>1 ) : 0) ; \ 
new(l) *old[l)* ( lev (1) <<shift )* (lev(l) » .0?negif (levll) <0, ( !<<shif t ) -1»1 J : 0) ; \ 
new(2) =old(2)+ < lev |2)«<shift ) -H lev(2 ] :-s0?negif ( lev(2) <0, (l<ohift) -1»1) :0) ; \ 
newt 3] =old[3]*(lev(3)«shift)* tlev(3) I =0?negif ( lev(3)<0, ( l<<shif t ) -1»1 > S 0) ; 

/* Reverse quantize block */ 

'define RevOnt (new, lev, ohift ) \ 

new|0]s(lev(0]<<shift)*(lev(0) ! *0?negif ( lev(0)<0, (l«:shif t ) -1»1 ) ;0) ; \ 
new{l)-(lev(lj<<shift)*(lev(l) I«0?negif4 lev(l]<0, (l<<shift) -1»1) :0) ; \ 
new(2)-(lev(2]«shift) + (lev(2) !a0?negif (lev(2)<0, (l«shift) -1»1) :0) ; \ 
nevl3J*(levf3]«ehift)"Hlev[3) i«0?negif ;iev(3)«0. (!<<ahif t ) -1»1 ) ; 0) ; 



»define RevQntLPF (new. lev, shift) \ 

new[0]»(lev(0)<<shift)*( ( l«shift ) -1»1) ; \ 
new(l]a(lev(l)<<shift) + ( (l«shift ) -1»1) ; \ 
new(2)e (levr2 )<<shift)* ( ( !<<ahif c ) -1»1) ; \ 



W0 94/2J3W PCT/GB*i/00«77 

- 678 - 



engineering: Kl lesCode : CompPicr : KlicsDec . c 
new (3 J »n«vf 3 i <<shuf t i * ( ( i<<shirc . - i>>i ) : 
/\ Read a difference block and update memory •/ 

• define DoXf erDelta < addLr . cid. new. lev. dst . shift . mode, oc: . roiode, buf ) N 

Hu f f DecLev ( lev, bur J ; \ 

RevCntD«lta(new, old. lev. shift) \ 

Put Data I addr , new, dsc ) ; \ 

.node { cct j soc.ssO ?.M_STO P : nmode ; 

/• Read a block and update memory •/ 

• define DoXfer I addr, new, lev. dst, shift .mcde/occ. nmode. buf) \ 

Huff DecLev dev. buf ) ; \- 
RevQnt (new, lev. shift ) \ 
PutData (addr , new, dst ) ; \ 
mode (oct]=oct==0?M_STOP: nmode; 

/* Function Name: IntDecode 

• Description: Read a integer from bit file 

• Arguments: bits - bits/ integer now signed 

• Returns: integer value 
•/ 

short IntDecode (short bits, Buf buf> 

( 

int i, lev.O. maskal; 

Boolean sign; 

/• Hardware ccmpacatble version •/ 

buf_nnc(buf ) ; 1 
sign»baf_get (but) ; 
f or( isO; i<bits-l; i**) { 
buf_rinc(buf ) ; 

if fbuf_get (buf ) ) lev l» mask; 
mask <<« 1; 

) 

if (sign) lev* -lev; 
return* lev); 



/* Function Name: Huff Decode 
* Description: Read a Huffman coded integer *rom bit file 
Returns: integer value 

•/ 

short Kuff Decode (Buf buf) 



short lev*0 , i ; 
Boolean neg; 



/* Hardware compatible version */ 

buf ^rinc (buf) ; 

if (buf_get (buf ) ) { 

buf.rinctbuf ) ; 

negsbuf_get (buf) ; 

do ( 

buf_rixy: (buf) ; 
lev**; 

) while (l«v<7 &4 i (buf_get (buf ) ) ) ; 
if (! (buf .get (buf ) ) ) { 

for(lev*0, i=0;i<7;i**J ( 

lev«»l; 

buf_rinc(buf ) ; 
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if (buf^get (buf ) i lev**; 

) 

i«V*w8; 

) 

if (neg) lev= -lev; 

) 

return* lev) ; 

) 

/* Function Name: KlicsDChannei 

• Description: Decode a channel of image 

• Arguments: dst - destination memory (and old for videos) 

* octs, size - octaves of decomposition and image dimensions 

* normals - HVS weighted normals 

Ipf-bits - no of bits for LPF integer (image coding only) 

•/ 

void KlicaDecYt short *dst, int octs, int sizef2), KlicsFrameHeader *£rmh, 
KlicsSeqHeader 'seqh, Buf buf) 

{ 

int oct, mask, x, y. sub. step=2<<octs, blk[4], mode (4 J, baee^modea { frmh-> 

Blk addr. new, old, lev; 

for (y=0;y<sizet 1 J ;y+astep) 

for (x*0;x<size{0) ;x*»step) 

f or (aub=0; sub<4 ; sub*-*) ( 

mode { oct » oct 1 ] »ba se_modc ; 

if (sub»«0) mode (oct »octa-l] l» M.LPF; 

mask*2<<occ; . 

do < 

GetAddr(addr,x,y, sub, oct . size. mask) ; 
switch (mode I oct J) ( 
case M_VOID: 

GetDataiaddr, old, dst) ; 
if (BlkZero(old) ) mode I oct ]*M_STOP; 
else ( DoZerol addr, dst. mode, oct ) ; ) 
break; 
case M_5EMD|M.STIH»: 
buf_rinc (buf) ; 
if (buf_o«t fbuf ) ) { 
buf_rinc (buf ) ; 
if (buffet (buf ) ) ( 

Do2 ero ( addr, dat , mode , oct ) ; 
} else ( 

DoXfex (addr.new, lev, dst. frmh^cj-uantizer (octs -oct ] .mode. oct.M_S 

) 

) else 

mode I oct JsM.STOP: 
break ; 
case M.SEMD: 

buf._ri.nc (buf ) ; 
if <buf_get (buf )) ( 
buf_rinc (buf ) ; 
if ( buf. get t buf) ) ( 
buf_xinc(buf ) ; 
if (buf_stt (buf ) ) ( 

CetDeteladdr.old.dst) ; 

DoXf erOelta laddr , old, new. lev, dst , f rmh->quantizer locts -oct) 
) else ( 

DofceroUddr, dst. mode. oct) ; 

) 

) else ( 

DoXf er (addr .new, lev. dst . f rm_->guant izer f octs -oct J . mode , oct , M.S. 
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) 

} else 

ncdcloctlsM.STOP: 
break; 
Cfifl€ M_ST3LL: 

buf _ranc (buf } ; 

if :buf_cec ibuf ) ) { DoXf er (addr , new. lev.dst . Crmh-xruanciier [oc^s-oct J .; 

else mod© {ocz ) =H_S?OP; 

break; 
case H_LPFIM_STILL: 

IntDeclev (lev. seqh->precision- f nnh->guanci zer (0] ,buf ) ; 

RevCntLPF (new, lev, f rmh->cruant ixer 1 0] ) ; 

PutDeta (addr. new, dst i ; 

mode [oct) »M_0UIT; 

break; 
case M_LPF I M_SOJD : 

buf_rinc(buf ) ; 

if (buf_get (buf ) ) ( 

GetData (addr, old. dst) ; 
Huf f DecLev ( lav. buf ) ; 

KevQntDelta (new, old. lev. f rmh->auanc iter (0) ) ; 
Put Data (addr, new, dsc) ; 

} 

model oct JsH.QUIT; 
break; 

J 

switch (mod* [oct) J { 
case M.STOP: 

StopCounters (roode.occ.maak. blk, x.y, octal ; 

break; 
case M.0UIT: 

break; 
default: 

DovnCounters (mode . oct .mask, blk) ; 
break; 

) 

} while (mode [oct J ! =M__0UIT) ; 

r 

) 

void KlicsDecUVishort *dst, int octa, int size[2J, KlicsFrameHeader *£rroh, 
KlicaSeqHeader *seqh. Buf buf) 

int oct, mask, x, y, x f Y, sub, step*4«octs. blk[4], mode [41. base_mode»i 
Blk addr, new, old. lev; 

Ccr(Y*0;Y<5izell) ;Y»sstepi 

f or(X-0;Xone (0) ,X*=atep) 

for(ysY;y<aiie(l] it y<Y-»tep;y*»atep»l > 

f or(x»X;xoize[0) tk x<X*9tep;x4*step»l ) 

f or ( sub=:0;outK4;sub**) ( 

mode [ oct »oct a - 1 1 ■ ba se_mode ; 

if <sub»sO) rcode(oct»octa-l] I ■ M_LPF; 

maak*2<<occ; 

do ( 

Ce tAddr ( addr , x , y , fiub , oct . 3 i ze , mask ) ; 
jwi tchl model oct J ) ( 
case H.VDZD; 

GetData (addr. old, dat ) ; 

if <Blk2ero(old) ) mode (oct 1 -H_STOP; 

else ( DoZerotaddr, dst. mode, oct ) ; ) 

break; 
case H_SENDIM_STIIX: 
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bur_rinc tbuf ) ; 

if (buffet (buf) ) { 

buf.rinctbuf ) ; 

if (buf_get (buf) ) ( 

DoZero ( addr , dst . mcce . occ ) ; 

) else ( 

3oXfer (addr, new. lev, esc. frmh - >quant a zer [ occs-ccc ] , mode. oct.M.S 

) 

} else 

mode [ocz] =M_STOP; 
break; 
case M.SEND: 

buf _nnc(buf ) r 
if (buf.yet (buf) ) ( 
buf_rinc(buf ) ; 
if ;buf_get (buf ) ) { 
buf_rinc (buf ) ; 
if (buf_get(buf)) { 

GetData( addr, old, dst) ; 

DoXferDelta (addr, old, new. lev, dst , f rmh->quanci2er [octs-oct J 
) else f 

Dote rot addr, dsc, mode, oct) ; 

) 

) else < 

DoXf er ( addr* new, lev, dst. f r:nh-xjuant iaar | oct s -oct ] , mode , oct , MLS 

J 

} else 

modeloctUM.STOF; 
break; 
cas« M.STILL: 

buf_rinc(buf ) ; 

if (buf.cet (buf ) ) ( DoXferi addr, new, lev,oUt . frriih->cruar.tizer(©cts-octl 
els* mode (oct ]aH_$TOP; 
break; 
case M_LPF IH_STILL: 

intDecLevdev, aeqh->pxeciaion-f nnh-xiuantizcr CO) .buf ) ; 
Re vQnt LPT ( new , 1 ev , f rroh - >qu ant i i er ( 0 ) ) ; 
Pu t Da t a ( a ddr , new , da t ) ; 
mode [ oct ) =M_QUIT ; 
break; 
case M_LFFIH_SDID: 
buf.rinc (buf ) ; 
if (buf_get (buf ) ) { 

Get Data (addr, old v d9t) ; 

Huf fDecLevUev.buf ) ; 

RevOntDelta (new. old. lev, t rmh-»guantixer (0) ) : 
PutOata < addr, new, dat) ; 

} 

modefoct]«M_OUIT; 
break: 

) 

switch (mode [oct ) ) ( 
case H_STOP: 

StopCounters (mode, oct, mask, blk,x.y. oct s) ; 

break; 
case M_0DIT: 

break; 
default: 

DownCount er a ( mode , oc t , mask , blk ) ; 
break; 

) 

) while (mode ( oct )! »M_QUrT) ; 

) 
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Function Name: 
Description: 
Arguments ; 



Returns : 



•7 




extern 


void 


extern 


void 


extern 


void 


extern 


void 


extern 


void 


extern 


void 



KiicsDecode 

Decode a irame :o r'JV (de) transformed image 
src * destination result 
dst - transformed destination memory land eld for videos) 
whether this frajne was sxipped 



KLCOPY (short -dst. short 
KLHALF ( short *dst, short 
KLICS3D2SEND( short -dst, 
KLICS2C1STILU short *dst, 
KLICS3D2STILL( short *dst, 
KLICS2D1SEND( short *dst. 



•src. long area) ; 

•src. Iong'si2e_0. lcnQ size.l); 

long size_x. long aize_y ( short nonna(4)( 

long size.x, long aize_y, long lpfbits. 

long si2e_x. long si2»_y, long lpfbits. 
long size.x, long size_y. short nonn3(4i[ 



•define flag.tree 0x1 
♦define fiag_vave 0x2 



void 
( 



KlicsDecode* short »src(3], short *dst(3J, KlicsSecjHeader "seqh. KlicsPr 



1 ong channe 1 , i ; 
short norms (4 1 (2] ; 
unsigned long syncl, sync2; 

for (i-0; i<4; i**) f 

norms [i J [0)» fl<<fnnh->Qyantizer( ij-l) -1; 
^ norms ( i J (1 ] *f rmh->quant izerf i 1 ; 

buf _rinit (but ) 

if (0!«(flageiflag_tree)) { 

syncl=GetTim*rValue Uayncl ) ; 

for (channels0;chann©l<i«Qh->channel9;channel**) ( 

int size (2) = (s«<jh->9»o^iBcc*_size f 0)>> <channels=0?0:aeQh->8ub_sajnpl 
seqh->seouenc*_siz«(l]» (channel«»0?0:setih->su£) san^led) ) 
tree_sixe[2] B (3ize{0]>>acale(0] . sized] >>scal« (0) ) , * 
octs»s»<3h->octaves ( channel »«0?0: lr; 



iifdef HO 



#else 



if <0!»(fnnh->flaga4KFH_INTRA> ) 

KLZERO(dst (channel J , tree_ai2e (0) *txee sized)): 
KLICSDCHANNEL < dsc (channel) , octs-1 . tree_si2e [ 0) , txee.sizefl] , (long) Iseq 
if (channex»»0) KlicsDecY (dst (channel J . oct s . t r»t_s i ze , frmh. seqh,buf ) ; 
else Kl icsD«ctfV(dst (channel) . octa, tree.aize . f rmh. seqh, bof) ; 



e 

long 



*endif 



3ub_tab(15]*{4,2, 10, 2*8»tree_3ize (0) , 10*8* tree.si ze ( 0] . 

**tree_size(0) . 2 *t ree.size (0] , 8*2 # t ree_si2« (0 J , 1 Octree siz 
4-4 'tree.size f 0) ,2*2»tree_si2e(0) ,10*2 'tree.sizefO] . 2*10»t 

if (0!-(frah->flags4jtrH.IOTRA) ) { 

KL2ERO (dit [channel] . tree_size(0) • tree sized) ) ; 
if <octa»3) 

KLICS3D2STILLldst (channel) . tree_size (0] , tree_aize( l] . (long) (se- 

else 

KLICS2D1STIIX (dat (channel J . txee_si2e (0) . tree_size ( 1 ) . I long) < se- 

) else 

if I oct 3a =3) 

KLIC£3D2SeJD(d3t (channel J , tree_ai2e ( 0) , cree.size (1 ) , tnorma . ibu 

else 

KLICS2DlsiWD(dst (channel ) , tree.size ( 0 ) , tree_aize(l] . 4nonw,4bu 

) 

sync2*GetTimerValue ( £ sync2 J ; 
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• t ree?3ync2-syncl ; 

) 

if (0 i « t i lagaif lag_wave) ) ( 

synclaCetTimerValue Uayncl ) ; 

tor ! cfcannel =0; channel* s«qh->chann«l 3: channel ( 

inc size(2]= { seqh-> sequencers : ze (01 >> I channel ==0?0 : aeqh->5ub_sampl 
aeqh-? sequencers i*e f 1! >> ( channel ==0?Q : aeqh- >sub_aample ( 1] ) 
vave_Size[2]» (si2e7o]>>acale (1 ] , si2e ( 1 ] >>scale ( 1 3 ) , 
oct 3=seqh->octaves ( channel *=0 70 : 1) ; 

svicchf seqh->wavelec ) ( 
case WT.Haar: 

if (scale[l]>scale{0)) 

KUiALF ( dflt [channel] , arc (channel J . wave_3i2« {0} . wave_si2e [ 1 J ) ; 

else 

KLCOPY (dsc (channel) , src( channel J . vave.size ( 0] *vave_si2e ( 1 ) ) ; 
HaarBackvardfsxc (channel] . vave.size , octs- scale ( 1 ] ) ; 
break; 
case WT_Deub4 : 

if (scale(0]-*0) ( 

if <scale(l]>9cale[0]) 

KLHALT (dst (channel ) . sre I channel ] , wa ve.size (0 ] , vaye.si 2e ( 1 ] 

else 

KLCOPY (dsc (channel ] . sre (channel I . wave.size ( 0] *wave_size (1] 
Daub4 Backward (arc (channel] , vave.size. occs-scalefl] ) ; 

) «l9« 

if lchannel»«0) ( 

KLCOFV (dsc (channel] .arc (channel) . wave.sixe TO J •vave.sixe (1 } 
Backvard3511 (sre (channel ] , vave_size. occs-scale (1 ] ] ; 

) else 

TOPBWD<dsc I channel J, sre (channel] . vave_size (0] , wave_size i 1 ) 

break; 

) 

] 

9ync2«Get7ijnerValue<&sync2) ; 
• wtv« = sync2 - sync 1 ; 

) 

) 
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* © Copyright 1993 KLICS Limited 
" All rights reserved. 

* Written by: Adrian Lewis 



• Klics Ccdec 

v 

* include * iJnageCodec .h* 
* include <FixMath.h> 
^include <Errors.h> 

* include <Packages.h> 

'ifdef PERFORMANCE 
tinclude <Pert.h> 

extern TF2Perf Clobels ThePClobals; 
•endii 

•lfdef DEBUG 

♦define DebugMsg(val) DebugStr (val) 

* «lse 

» define DebugHsg (val) 
•endif 



•define WT.Haar 0 
•define WT_Daurj« 1 

'define None 0 

•define Usee X 

•define Usel6 2 

^define Uae32 3 

"define Us*F32 4 

/• version inf ormat ion •/ 

^define KLICS w CODEC_FEV 1 

•define codeclnterf aceVeraion 1 /• high word returned in component Get Version 

•define klicsCodecF ormat Name 'Klics* 
• define klicsCodecFormatType 'klic* 

pascal Component Re suit 

KiicsCodec (Component Parameters * pa rams, char ''storage); 

pascal Component Re suit 

KLOpenCodec (Component Instance self); 

pascal Component Result 

KLCloseCodec( Handle storage. Component Instance self); 

pascal Component Re suit 
KLCanDoSe lector (short selector); 

pascal ComponentResult 
KLGet Version () ; 

pascal Con^onantResult 

KLGet Codec Tnfo iHandl? stora£*.Cc M 3ednf c *info); 
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pascal Component Result 

KLGetMaxCompressicnSize (Handle storage. PixMapH&ndie src. const Rect 'arcRect short • 
CodecC quality, long 'sire); 

pascal Component Result 

KLGetCompressedLTageSire (Handle storage. ImageDe script ionHandle desc, Ptr data. long . 
DataProcReccrdPtr dataFroc. long •size); 

pascal ComponentResult 

KLPreCompress( Handle storage, register C ode cCompr ess Parana »p) ; 
pascal long 

KLFreDecompress (Handle storage, register CodecDecorapressPcLrams *p) ; 
pascal long 

KLEandDecompres* (Handle storage, register CodecDecoinpressParams *p) ; 
paacal long 

KLBandCctfiT»r ess (Handle storage, register CodecCompressParajns *p) ; 
pascal Component Result 

KLCetCompressionTime (Handle storage. Pi xMapHandle src, const Rect *srcRect , short dep 
CodecO * spat lelOuality, CodecO • tenpor a lOuality, unsigned long •time); 

/• Function: Kl icsCodec 
• Description:KlicsCodec main despatcher 

•ifdef DECODER 

pascal ComponentResult 

Kl icsDe coder (Component Parameters *params,char ** storage) 
♦else 

♦ifdef ENCODER 

pascal ComponentResult 

RlicsEncoder (Component Parameter a *params, char ** storage) 
*else 

pascal Component Re rult 

Kl icsCodec (Coinponent Parameters 'parents , char "storage) 

vendif 

»endif 

( 

CSErr err; 

switch ( pa r ams -> what I { 
case kComponentOpenSelect: 

err =ca 12 Component Funct ion (pa rams. ( Component Punct ion J KLOpenCodec) ; break; 

case kCcmponentCloaeSelect; 

err^CallCoraponentFunctionWithStorage (storage ,parares. ( Component Funct ion iKLC 

case kCcmponentCanDoSelect : 

•rx-Cal lCorapcnent Funct ion ( par ams. ( Component Funct ion) KLXTanDoSe lector ) ; ore* 

case kComponentVeraionSelect : 

err *CallComponent Function (par ams , (Component Funct ion) KLCet Vers ion) ; break; 

♦ ifdef DECODER 

case codecFxeCompresa: 
case codec BandC empress : 

errvcodecUnimpErr; break; 

♦else 

case codec PreCompre sa: 
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erxsCafKcmponentFunciicnwichSwcragei storage. params. (CcmponentFunccion) KLP 

case codecBandC empress : 

err»CallCcmponent Funct lenwit hSt orage I storage . pa rams . (Ccmponent Funct ion) KLB 

jendif 

fiidef ENCODER 

case codecPxeDecompress : 
case codecBanciCe compress : 

err = ccdecUnajnp£rr : break; 

•else 

case codecPreDecompress : 

err*CallCompcnentFunctionWithStorage I storage, params. (ConpcnentFunct ion) KLP 

case codec BandDecotnpr ess : 

err=CallCorrponentFunctionWithSt or age (storage, params, (Corr*>onentFunct ion J KLB 

•endif 

case codecCDSequenceBusy ; 

err=0; break; /• our codec is never asynchronously busy 

case codecGetCodednfo: 

erraCailConc^nentruncticnwithStorageistorage. params. (CornwientFunct ion) KLG 

case codecGetCompressedlmageSiae: 

e rr=CallCoiiponentFuncticfl3WichStor age (storage, params. (Component Function) KLG 

case cec«cCetMajcCompreaaion£ize : 

err =CallComponentFMnccionwith£tcr age (storage-, params, (ComponentFunction)KLG 

case codecCetCo^jressionTime : *,* - 

erx*CaUCoiiT>onentFuncti©nWithStor»o;e (storage, params. (Component Function) KLC 

case codecGetSimilarity : 

• rr=codecUniiopErr; break; 

case codecTrimlmaoe: 

erracodecUnispLrr ; break; 

default: 

err=paramErr ; break; 

) 

ir (erx!=no£rrl 

DebugMsg ( " \pCodec Error* )i 
return (err); 

) 

* include <nemory.h> 
•include <Resources. h> 
^include <0SUtils.h> 
♦include <SysEau.h> 

(•include <StdIO.h> 
• include <Time.h> 

♦include <Stxings.h> 
•include <String.h> 
•include •Bits3.h - 
♦include •KlicaHeader .h p 
♦include •Klic»Eneod«.h' 

void E*twgString(char 'string) 

( 

DebugStr ( string) ; 

1 
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excem s^.ort gResRef: 

cypcdef struct ( 

Codeclnto # *infc; 

Ptr catof 41 : 

shor: jscf4); 
} SharedClcbals; 

typedef s : rue t { 

KXicsERec kle 
short •src(3) 
short »dst[3]j 
Ptr pixmap; 
long size; 
long. using; 
long scaleOJ; 
unsigned long prev_ frame; 
unsigned long xeal_frame; 
unsigned long dpy_frame; 
unsigned long mn_frame; 
unsigned long sys.time; 
unsigned long tree.tiroe; 
unsigned long wave_time; 
unsigned long dpy_time; 
unsigned long run_t ime; 
unsigned long key_time; 
unsigned long sync_time; 
Boolean out (15] ; 
SharedGlobals *»haxedGlob; 
) Global.; 

scaling scenarioa: Tree wave Out 



/• Encoding parameters "/ 

/• YUV Frame buffer •/ 

/• YUV Frame buffer •/ 

/* Encoded pixmap data •/ 

/* size of Previous Frame Buffer V 

/• Which lookup cable are we using for colour 

/■ Tree. wave. Out scales (^Original. -l=Doubl 

/• Previous frame number V 

Previous real frame (no skips) •/ 

/* Previous displayed frarae •/ 

/• First frame in play aec/uence •/ 

/• System overhead for previous frame •/ 

/* Typical tree decode tin* (not skip! V 

/• Typical wavelet transform time •/ 

/• Typical display time •/ 

/♦ Time of first run frame "/ 

/• Time at last key frame •/ 

/* Sync time •/ 

/• Displayed? •/ 



1 
1 
0 
0 
0 



0: 
1: 
1: 
0; 
-1: 



internal calculation, are Quarter wit: output Original ( interpo 

internal calculations are Quarter site. ^J",^"" 1 

internal calculations are Original >««-"Oucpit 

Internal calculations are Original sue, output 

X«££l. calculation, are Original .i*e. output Double sue 



void KLDeallocateiGlobala ••glob); 



/ • 



Klics Function Definitions •/ 



extern i*c 5""£«*|£?" I^j' ^W'. 5l!«S.S^r -seqh.Kli 

extern Boolean KlicsDecode (short a src[3j. snort oat . jj. * , v . ve) . 
IcVmode. long scaleOl, unsigned long 'tree, unsigned long wave). 



/■ 



Memory allocation/deallocation routine. 



OSErr 

MemoryError ( ) 

{ 

OSErr theErr: 

#ifdef DEBUG 

if (0 ! 3 ( theErrrMejnError ( ) ) ) 
Debug 5- r ' " N pw^m^n/Srrcr ' 
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*endif 

return* theErr) ; 



CSErr 

FreeFtrtPcr 'ptri 

CSErr 'heErr=0; 

if <*ptr:=nii) { 

DisposePtr ( *ptr ) ; 
♦ptr=nil ; 

theExr=hemoryError( ) ; 

J 

return (theErr) ; 



••define FreePcinter (handle . err ) \ 

if (noErr <err=FreePtr ! (Ptr*) tfchandle) > ) ) recurn(err) 

extern OSErr Colours ( Ptr *f; 

extern OSErr Colourl€(Ptr •); 

extern OSErr UV32Table t Ptr * i : 

extern OSErr RGB Table ( ptr »j; 

CSErr 

KLGetT&blClobals ••glob, long new) 

( 

OSErr thfiErraO; 

SharedGlobals # sGlobs < *glob) -> sharedGlob; 
long old»(*glob) ->using; 

if (old!=new) { 

if (old! -None) ( 

sClob->uae (old-1 ) — ; 

if <sClob->use(old-l)»-0) { 

FreeFointer lsClob->tab(old-l J , theErr) ; 

) 

) 

if (newisNone) ( 

if ( sGlob->usefnew-l] a«0) 
switch (new) < 

fifndef ENCODER 

case UseB: 

if (noErr !* (;heErr*Colour8 i&sGlob->cablnew-i] ) ) ) 

return I theExr) ; 
break; 
case Usel6: 

if <noErr!» ( theErr=Colourl6 (4cClob->tab;new-l ) ) ) ) 

return* theErr) ; 
break; 
case Use32: 

if <noErr! = ltheErr=tjv32Table(&sGlcb->tab(new-ll ) ) ) 

return l theErr) ; 
break; 

#endif 

*ifndef DECODER 

case UseF32: 

if inoErr' = (th«Err=RGSTa±)le(t*Glob->tab[new-l] ) t ) 

return t theErr ) : 
break; 
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•endif 

) 

( # glob) ->usir.gin»w: 
sGlob->use [new-1 ; 

) 

return! theErr) ; 



OSErr 

XLFreetGlobals ■•glob) 

I 

OSErr theErr*0; 

FreePointer < t *glob) ->src f 01 , theErr) ; 
FreePointert ( -glob) ->dst [0] , theErr; ; 
FreePointer < ( # glob) ->pi>jnap, theErr) ; 
[ 'glob) ->si2**0; 
return(the£rr> : 



•define Newpointer (per , type, size) \ 
saveZone=CetZon*< J ; \ 
Set Zone t SystemZone ( ) ) ; \ 
if lnilM(ptr«(type)NevPtr(size) ) ) ( \ 
Sec Zone < App i i cZone ( ) ) ; \ 
if (nil»» (ptr=<type)NevPtr4sise) ) ) ( \ 
SetZone (saveZone) ; \ 
return (HeworyError ()) ; \ 

) \ 

) \ 

SetZone ( save Zone ) ; 



Component Re suit 

KLMalloc(Glcbala ••glob, short height . short width, long pixelSize) 

( 

long ysize .uvsiie; 
THz. save Zone; 

y sizes (long) height * (long) width • ( long) si zeof (short ) ; 
uvaize » ysize>>2; 

if {Cglob)->size i» ysize) ( 
XLFree(glob) ; 
i *glob> ->size s ysize; 

( -glob) ->prev_f xane«-l; /• frame doesn't contain valid data •/ 

/• Keep Src and Dst separate because of their larg* aizm» */ 

ysite»(iong)height • (long)vidth * I long) si zeof (short) » 2 # ( p globl ->scale 
uvsize » ysize»2; 

Ne*Po inter ( ( *glob) ->src f 0] . short • , ysize-uvsize+uvsize* 16 ) ; 

(•glob)->srctll » (ahort •) ( ( (long) Cglob) ->src[01 * ys.it* * 3D t QxFTTTT 
(•Ciob)->srcl2) - (ahort •) ( ( (long) ( ^globi ->src(13 * uvsize ♦ 3D 4 OxFTTF. 

ysize«(long)height • (long)width • (long) si zeof (short) » 2* t # glob) ->scal« 
uvsize « ytize»2j 

Newpointer ( (•glob)->dst 10] .short *,yei2e4uvsize*uvaize+16> ; 
rglob)->dst[l) = (short •)(( (long) ( -glob) ->dst 10] * ysiae ♦ 3D & QxTTTTT 
(»glob)->dstC2] » (short •) ( ( (long) cglob) ->dst [1] * uvsize 4 3D k OxJTFF 
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^ NevPointert ( *;lcb) ->pix*-ap. P: r . pixelSize/ 6 -heigh: # vidth*:<; i . 
return inoErn ; 

) 

CSErr 

RescurceError i ) 

CSExr theErr; 

»ifdef DEBUG 

if (0 ! = t theErr = Res Error ( ) ) ) 

DebugStr I ' XpResourceError* ) ; 

■endif 

return ( theErr J ; 

) 

#ifdef COMPONENT 

♦define ResErr tresfile. err) \ 

if (0 ! ■ (errsResourceError (HI ( \ 

if <resfile!=0) CloseComponentResFile< resfile) ; \ 
return (err J ; \ 

) 

• else 

•define ResErr fresfile, err) \ 

if (01- (errsResourceError ( ) > ) ( \ 
return ( err J; \ 

) 

■tndif 

Component Re suXt 

KLOpenlnfoRea (Component Instance self, Handle •info) 
< 

vprao^na unused(self) 
short resPlle=0; 
OSErr theErr =noErr; 

if Cinfo) ( 

DisposHandle ( •info) ; 
*info»nil; 

) 

•ifdef COMPONDTT 

resFile*OpenComponentResFile< (Component J self ) ; 

ResErr (resFile, theErrl : 
*else 

UseResFiletgResRef ) ; 
•endif 

•info*CetlResource (codeclnf oResourceType, 128) ; 

• mfo^GetlRe source I codeclnf o Re sour ceType , 129) ; 

ResErr (resFile, theErr) ; 

LoadRe source (* info ) ; 

ResErr (resFile, theErr) ; 

De tachRe source t * info ) ; 
fifdef COMPONENT 

CloeeConponentResFile (resFile) ; 
tendif 

return ( theErr ) ; 



pascal Component Result 

KLOpenCodec (Component Instance self) 

i 

Globali ••glob; 
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SharedClcbals *3Glob; 
THz saveZcne; 
Boolean inAppHeap; 
CzmponcncRcaul C result s noErr; * 
shore resFile-CurResFiie ( ) ; 

OebugMsgt-NpOpcn Codec - begin*): 

it ( (.glob - (Clcbals JNevHandieClear ( sneof (Clobals ) ; ) =» nil i { 

re "urn t Memory Error ( ) J ; 
) else HNoP\jrge( (Handle)glob) ; 

SetCoinponencInstanceStcrage (self , (Handle) glob) ; 
saveZone = GecZoneO; 

inAppHeap » ( Ge t Component Ins tanceA 5 (self ) * I = 0 i* 
if ( ! inAppHeap ) 

SetZone (SystemZoneO ) ; 
if ( . (5Clob=(SharedGlobals*)GetConponentRefcon( (Component) self)) == nil ) < 
if < (sClob » tSharedGlobals»)N*wPtrClear( 3 i2eof (SharedGlobals))) « nil ) 
result =Hemory£rror () ; 
goto obail; 

) 

^ SetCcmponentRefcont (Component) self , (long) aGlob) ; 

<*glob)->sharedGlob * sclob; // keep this around where it's easy to gee at 

if ( sClob->info « nil II • (Handle) sClob->info « nil ) { 
resultsKU^penlnioRes (self .4 (Handle) ( sGlcb->inf o) ) ; 
HNoPurge ( (Handle) sGlob->info) ; 



obail: 

Set2one ( saveZone) ; 

if ( result !c noErr fcfc sGlob • = nil ) { 

if ( sGlob->info ) 

DisposHandlei ( Handle )sGlob-> info) ; 

DisposPtrf (Ptr)sGlob); 
^ SetCoraponentRefcon( (Component ) self , (long)nil) ; 

< *glob) ->size?0; 

DebugMsg ( *\pOpen Codec - end*); 

return(result) ; 



pascal ComponentReeult 

KLCloseCodec I Handle s tor ay e.Conr>onent Instance self) 
SharedGlobala *sGlcb: 

Globals ••glob = (Globals •* J storage; 

DebugMsg ( '\pC lose Codec - begin*); 
HLock( storage); 
if ( glob ) ( 

KLrreetglob); 

RLrGet?a2>( glob. None) ; 

if (CountComponentlnstancea( (Component) self) »« l) ( 

if ( (sGlob* (SharedGlobals") ( •glob) ->sharedGlob) i« nil ) ( 
if ( sGlob->info ) 

K?urge( (Handle) sGlob-> info) ; 

) 

DisposHandle ( (Handle )glob> ; 
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hei-gnt ■ 12G» 

) 

'time = (width • height-* 11): 

it spatialQuality &£ •spatialQuality—codecLosslessoualicyJ 
•spatialQuality r codecMaxQualaty ; 

if ;cempcralQuality && ■ ternpcralOual ity==codecLoss lessQualicy ) 
•temporalQualicy - codecMajtQuality ; 

return i noExr ) : 

/* 

• Extends dimensions to make a multiples of 32x16 
'/ 

•define KL£xt endwidth ( dim) 31- (dim-l&31) 
*def ine KLExtendHeight (dim) 15- (dim-l&15) 

pascal Component Re suit 

KLGetMaxCompressionSize ( Handle storage* PixHapHandle arc, const Rect • srcRect, shore • 
CsdecO quality, long *size) 

( 

•pragma unused ( storage, ire. depth. quality > 

short width = srcRect-»r lght - srcRect->lef z : 
short height = srcRect ->bottom - srcRect- > top: 

/• test by just doing RGB storage */ 

•size • 3 * (width*KLExtendWidth (width) ) • lheight*KLExtendHeight (height ) ) ; 
return (noErr) ; 

) 

pascal ComponentResult 

KLGetCompressedlmageSize (Handle storage , ImageDescript ionxandle desc.Ptr data, long * 
DataProcRecordPtr dataProc. long *size) 

( 

•pragma unused ( storage. dataSize, dataProc. desc) 
short frmh_size; 
long data_size; 

if ( size s« nil ) ( 
return i par am£rr) ; 

} 

:rmh_size« ( iKlicsHeader * ) data) ->descnpt ion_length; ; 
daca_size= ( (KlicsFrameHeader *?data» ->lengch; 
•sizes ( long ) f rmh_size*data_size; 
return (noErr) ; 



void KLSecup (Boolean still, short width, short height. CodecQ space. CodecO tern 

( 

kle->seqh.head.descriptioA_length«sizeof (KlicsSeqHeader ) ; 

kl e- > seqh . head . vers ion_number ( 0 ) = 0 ; 

kl e -> s eqh . head . vers ion.nuiaber ( 1 ]* 1 ; 

k 1 e - > s eqh . s*cju«nce v 8 i ze 1 0 ] width ; 

kle->seon.sequence_size (l]»height ; 

kle->seqn. sequence_aize (2)«0; 

k 1 e - > & eqh . sub.sanrple [ 0 ] * 1 ; 

kle->seqh. $ub_sairplc (1]«1; 

k 1 e - > s eoh . wa ve 1 e t svr„Daub4 ; 
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kle->seqh .precTsion»10 ; 
kle->sech.cctaves JO] = 3; 
kle->aeqh. octaves ( 1 j *2 ; 



<ie->trmh.he*d.descripcion_lengcha"9ireof ( KlicsFrameHeader) ; 
kle->f mh. head. vers ion_number[ 0 j ~0: 
kle->f rnih. head, vers ion_nunvber [ L ) = ' ; 

kle->encd.bpf.in=(2133*t«mp*l60)/8; /• High = 64000 bits/frajne. Poor * 1 

x:e- >encd.bpf ^out^kle^encd.bpf.in.- 
kle^encd.buf _si2e=kle->encd.bpf _ioM ; 

kle->encd.(juant = 16- ( space* 15) / 1023 ; 
kle- >encd. thx esh=l .0; 
kle->«ncd. compare* 1.0; 
kle->encd. basetONO.lC- 
kle^encd.based 1=0.10; 
kle->encd. base [ 2 ] «0 . 20; 
kle->encd.base[3 ]=0.50; 
kle->encd. base 1 4 j «1 . 00; 
kle->encd. incrasscill; 
kle->encd. auto_q=true; 
kle->encd.buf _sv»true; 
kle->encd.prevquact^l; 
kle->encd.prevbytes^l3; 



Hfndef DECODER 
pascal Component Result 

KLPreComprese (Handle storage, register CodecCompressParams *p) 

( 

ComponentResult result ; 

CodecCapabilities *capabilities • p->capabilities: 

short widths < •p->i.-nage Description ) ->width* <capabilities->extendw 

^ort h «i©ht» ( •p->ijM9eDescription) ->height* (capabilitie*->«xten- 

Clobals ••globs (Global* **)stoxagej 

KlicsE kle*4Cglob)->kle; 

Handle ext»NewHandle (sizeof (KlicsSeqHeader) J ; 

DebugMsg ( ■ \pKLFr eConcress • ) ; 
KLock I storage) ; 

if (MemError f ) ! rnoErr) return < HemError ()) ; 
switch ( I *p*>iinageDe5cription) ->dcpth ) { 
case 24 : 

capabilitita->wantedPixelSixe * 32; 
kle->seqh.chajinels»3; 

if (notrr^s (resultsKLCetTab(glob. r JseF32) ) ) 

return (result ) ; 
break; 
default : 

return ( codecCondi t ionErr ) ; 
break; 

) 

/♦ Going to us« 3 octaves for Y and 2 for UV so the image must be a multiple o 

capa±>ilitiet->bandMin • height; 

capabilities ->ti»ndlnc s capabilit ies->bandMin; 

c a pab i 1 i t i e e - > f 1 egs^c odecC anC opy Fr e vC onip I c ode cCanC opy Prev ; 

( *globl ->scale (0] «0; 
( *glob) ->scale f 1 1 «0; 
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(*glob)->scale[2]=3; 



if inoErT!=(result=KLMalloc(glob. height. width. 0) i ) return result; 
KLSectp(p->3ecuenceID=s0.vidth. height. t "p- > lmageDescnpc ion) - >spatialCual icy . I 

Blcckwcve I ( Pt r ) &kle - >seqh, • exc . sizeof (KlicsSeqHeader) ) : 

if incErr ! = t re suit = Sat ImageDescripCicnXxc ens ion tp- ? imageOe script ion. exz . klicsC 
return result: 

HUnlock (storage) ; 

DebugMsg ( • \pKLPreCompress success " ) ; 
recum<result ) ; 

) 

* endi £ 



h xfndef DECODER 
pascal long 

KLPreDecorrpress (Handle storage , register CodecDeeompressParams *p) 



Corqponent Result result; 

CodecCapabilities -capabilities c p->capabilit ies; 

Rect dRect = p->srcftect; 

long width; 

long height ; 

long channels; 

Glcbals *"globs (Globals ••Istorage; 

KlicsE kit; 

Handle exc; 
OSExr ern 

D«bugMag ( *\pKLPreOecoTfcress - ) ; 
if ( : Trans f ormRect (p->matxix. *dRect , nil) ) 
return (codecConditi onErr) ; 

HLock ( storage) ; 
klest (•glob)->kle: 

switch < I »p->i inage Description ) ->depth ) ( 
case 24: 

svitch(p->dstPixMep.pixelSize) { 
case 32: 

capabilities->wante<JPixelSi2e = 32; 
if (p->condit ionFlagsAcodecCondit ionNewDepth) i 
it (noErrir (•rr»KU3ecTah(glob.Use32) ) i 
return ( err); 

> 

break; 
case 16: 

capabilities->wantedPixelSize - 16; 
if (p->conditionTlags4codecConditionNewDepth) { 
if (nc£rr.'= ierr»KLGetTab(glob. Us«16) ) ) 
retum(err) ; 

> 

breaks- 
case 8: 

capabilities- >wanted?ixel£lxe = 6; 
if (p->conditicnFlagsAcodecCondi;ionNfrwClut > { 
if (noErr!*(err*KLC«tTab(glob.Use8) ) ) 
ret urn (err) ; 

) 

break; 

) 

channels «3; 
break; 
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default: 

ntum f codecConditionErr ) ; 
break; 



) 



if (noErr! ■ ( resuIt=Get ImageDescr ipt ionlxt ens ion ( p-> imageDescript icn. iext , kli 
Blockwove ( »ext , ( Ptr ) ikle->seqh, sited { KlicsSeqHeader ) ) ; 
if (channelsa=l J kle->seqh. channe-lssl; 

/• Going to use 3 octaves for Y and 2 for UV so the image must be a multiple 
*ifdef HQ 

(*glob>->sca)e{0)sO; /• Tree scale •/ 
telse 

{•glob)->scale[OJsl: /• Tree scale •/ 
tendif 

widthakle->seqh.sequence.si2e f 0 ] ; 
he ight=kle->s»qh. sequencers i ze { 11 ; 

switch! (*glob)->scale(01) ( 
case 1: /• Quarter siie internal •/ 
( •glob)->scale[l].l; 

if (p-MTvatrix-MnatrixlO) (0) »»p->matrix->matiix[l) [1] ) 
svicch(p->matrix->matrix|0) {0) ) { 
case 32768: 

capabilities^ £lags*codecCanScale; 

capibiliti«o->e>tenciWidth=width/2 -dr.ect .right; 

c apafci 1 i t i e s - >ex t «ndHe i ght » he i ght / 2 - dRec t . bo c t ore ; 

Cglob)->acalel2)»l; 

break; 
case 65536: 

capa&ilities->extencVidth?vidth-dRect .right ; 
c«p&bi 1 i c i e s - >ext endNelght *he i ght -dBect . bo t t om; 
< •glob>->acalef2] *Q; 
break; 
default: 

capaJ^i 1 i t i es* >ext endWidthr 0 ; 
capabilities ->extendHeightsO; 
Cglob)->scalef2N0; 
break; 

) 

else ( 

capabilities ->extendWidthsO; 

capabilities->extenelHeight30; 

Cglob)->flcale(22»0; 

) 

break; 

case 0: /* Pull size internal * / < 

it (p->matrix->roatrix(0] (0] ■ «p->matrix->inatrix[l] [13 ) 
switchtp->matrix->raatrix{0] 10J J ( 
case 32768: 

capabilitiaa->f lagsscodecCanScale; 

cepab>ilitiee->e.*tendWidth=vidth/2-dRect . right ; 

capabilities ->e;itendHeights height/ 2 -dRect . bottom; 
Cglob»->scal«flJ«l; 

<*glob)->ecale[2]sl; 

break; 
case 131072: 

capabilitiea->f lagsccodecCanScale; 

capabil it iea->extendwidth»width*2 -dRect .right ; 

capabilitiee->extendHeight»height*2 -dRect. hot toe; 

(•glob>->scaletl)»0; 

(*glob)->acale(2)»-l; 
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break; 
case 65536: 

capabilities->extendWidth=v:dth-dRect - right ; 

'apabilit aes- >e:ntendH€ight * heigh; -dRect - botccm; 

(•glcb)->scal«|l]*0; 

( *glob) ->sca-le(2)s0; 

oreak; 
default : 

rapabilities-^extendwidthrO; 

capabil ities->e»t«nd*eight *0; 

fglob> ->scale(l]=C; 

(•glob) ->scale(2)*0; 

) 

else ( 

capabilities->extendwidthsO; 
capabilities->exr:endHeightsO; 
i *glob) ->scale[l] »0; 
fglob) ->scale(22 sO; 

) 

break; 

) 

capabilities->bandMin = height? 

capafcilit ies->bandlnc * capabilities- >bandMin; 

capabilicies-> flags I scodecCanCopyPrevtcodecCanCopyPrevComp i codecCanHemapColoi ; 
if (noErr! = ( result »KLMalloc (glob, height . width, capabil it ies->vaJicedPixelSize) J ) 
HUnlock. ( storage ) ^ 

DebugMsg < * NpKLPreDecon^press success* ) ; 
return(result ) ; 

/ 

•endif 

/• Test Versions in C - Colour. c */ 

void RGB2YUV32 (long -pixnup, short 'Yc, short # Oc, short *vc, int area, int wid 
void YUV2RGB32 ( long •pixjnap, short »Ye, short "Oc. -short *vc. int area, int wid 
void YUV2 RGB3 2x2 (Ft r cable, long •pixmap, short 'Yc. short •Uc. short »Vc. int a 

/* Assembler versions - Colour. a ♦/ 

OUT32X2(Ptr table. long *pixmap. short *Y, short *D, short m V. long width. long height, 1 
OUT32X2D(Ptr table. long •pixmap. short *Y, short *V. short *V. long width. long height. 
OVT32(Ptr table, long •pixrrap, short *Y. short •U. short •V, long width, long height. Ion* 
OUT32D(Ftr table, long 'pixmap. sh.crt *Y. short *V, short *V. long width, long height, lo: 
0VT8X2<Ptr table. long *pixmap, short *Y. short *0, short *V, long width, long height, lo; 
OwTS(Ptr table. long • pi xmap, short *Y. short *U. short *V. long width, long height. long 
OUT16X2tPtr cable. long 'pixjcap, short •Y. short - U, short *V, long width, long height,! 
0UT16(Ptr table. long 'pixmap. short *Y. short *U, short •v. long width. long height, Ion- 
lK32(Ptr table. long *pixmap, short *Y. short •U. short •V, long width, long height. long 

/• Assembler versions - Color2.a •/ 

void RGB2YW2 ( long *pixmap, short *Yc, short *Uc. short *Vc, int area, int wide 

void YUV2RGB2 (long *pixmap, short *Yc. short *Uc, short *vc, int area, int widt: 

void YUV2KGB3 (long 'pixroap, short *Yc. short "Uc. short *Ve, int area, int widt 

void GKTY2Y ( long "pixmap, short *Yc, int area, int width, int cols): 

void Y2GREY t long •pixmap, short 'Yc. int lines, int width, int cols); 

void Y2GCGilong "pixanap, short *Yc, int linea, int width, int cola); 

/•YUV2RCB4 i ("glob) ->Table . pixnap, src(0J , srctl] , arc [2] , cols* ( *desc) ->height>>scale.' 
YW2RGB5( (*glcb)->Table.pix»ap f src(O) , sre f 1 ) . arc (2 ) , cols* < »desc) ->height , width»ac 

^pragma parameter DO Microseconds 



SUBSTITUTE SHEET (RULE 261 
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pascal unsigned long Microseconds (void) = (0x4EBO, 0x81El. 0x64CJ; 

unsigned long GetTimer Value (unsigned long *Tim«rResi 

i 

♦TimerRCS » C LOCKS.- FEK.S EC ; 
return (Microseconds < ) i ; 

) 

•ifndef DECODER 
pascal long 

KLBandCcrapress (Handle storage, register CodecCompressParams *p> 

{ 

*pr agree unused < storage I 



Glcbals ••glob a (Globals **) storage; 
Imag»Descript ion # *de3C » p->imageDescript ion; 

char *baseAddr; 

short rovByces; 

Rect sReci; 

long of f setH, off setV; 

OSExr result ■ no Err; 

short *srcC3] f -dst f3J; 

long *piwnap; 

int widths Cdesc) ->width*KLExtendwidth( ( # descl ->width) ; 

int heights ( *desc) ->height*KL£jctendHeight H "dead ->height) ; 

int hvidth»width>>l.hheightsheight»l; 

int bytes; 

XlicsE kle; 

char imuMod«*l; 

char intra O-^VpENCi Intra -mode • , inter U »*\pD»C: Int ar -mode* ; 

SharedClobals *sGlob; 



#ifdef PERFORMANCE 

(void) Perf Control (ThePGlobala, true) ; 
*endlf 

DebugMsg ( ' XpB&ndComprasa" ) ; 
HLock( (Handle)glob); 
kle=*< # glob)->kle? 
sGlobs ( *globJ ->sharedGlob; 

rowBytta a p->arcPixMap. rowBytea & 0x3fff; 
sRect * p- >srcPixMap. bounds ; 
swicch ( p->srcPixMap.pixel5ixe ) f 
case 32: 

offsetH 3 sRect . lef t<<2; 

break; 
cast 16: 

offsetH » sRect.left«l; 

break; , 
case 8: 

offsetH a sRect. left; 

break; 
default: 

result s codecErr; 

DebugMsg ( * NpError" ) ; 

goto bail; 

) 

offsetV * s Rect. top * rovBytes; 

baaeAddr ■ p->srcPixMap.baseAddr ♦ offsetH + of faetV; 
pixjaap* (long • ) baaeAddr; 

/• FSMakeFSSpectO.O, • \p0ser:crap001 • , If sspec) ; 
F?pCreete(4fsspec. •????•. •????•, -U: 



WO *4/233«5 



PCT/GB94/00677 



- 698 - 



^ineering:KlicsCode:Co.-npP l cc:KlicsCodec.c 



"SpOpenDFIAf sspec. fswrperm.if ileRcfNum) ; 
areashaighcf^rewBytea; 

FSWri:e<fil«R*fKuni.&area. ( long* ipixmapi : 
TSClose ( f ileRefWum) ; •/ 



srcfO)»( -ylobJ-yarclOJ; srcf 1 ] = f -glob) ->$rc( I ) ; src f 2 1 * t *olob) - >srr 1 2 1 . 
dst:oi S |.glebi->d.c|OJ; dat [ 1 J. c -gloni ->d»c J lit I -J cb ->£ j ! 
switch I Xle->seqn. channels) ( 1 Jl 

Ca6€ 3: 

"»2£Clob-»t^ 

) 



* Klics encode 
"ifdef DEBUG 



if <p->callexFlag3*codecFlagU3eIir.ageBuffer)- DebugStr ( ■ NpUselmageBuf far* ) • /« 
if tp->callerFlags*codecFJagUseScreanBuiiar) DebugStr ( • NpUseScreenBuf f er • ) • /■ 
if (p->caUerFlag8&codecFlagUpdateFrev&ous) DabugStr 1 * \pOpdate Previous # ) • 




ocndif tp " >call€rFla0Stcod * cFIa ^ Onl y Scr «* nU Pdatt ) DebugStr (• \pOnlyScraenupdateM ; 

kle->buf .bufstunsignad long * ) <p->data*sixecf <K1 icsFr*jn.H«ad*r) ) ; 
kle->encd. intra* <p->t*mporalOualitya»0) ; 
k le - > t rmh . f rajne_nu3»ber ap- > £ r ameNumbar ; 

byressXlicsEneoda (src, dst , kit) r 

BlockMova( (Ptr)«kl«->fnnh,p->data.si2eof (KlicsFrameHcader) ) ; 
bytes+ssizeof (KlicsFrareeHeader) ; 

I * g 1 ob ) - >pr ev_ £ r an* =p - > t r aa>ei*uinber ; 

p->data+sbyte3; 

p - >bu £ £ erS i 2 e »tyc «fl ; 

(•p->imagaDascription»->dacaSixe«byt«a; 



/ 

bail; 



p- > similar ityMkl«->encd.intra?0:Long2Fix< 2 44 ) ) ; 
p->callerFlags*0: 

p->callerFlag3l»codecFlagUsed2jnaQeBu£ far II *le->«ncd. intra ?codecTlagUsedNawIniag 



HUnlocki (Handla)globi ; 
•ifdef PERFORMANCE 

if (01 » ( result =Perf Dump (ThePGlobals, ■ \pEncode . perf • , falsa. 0) ) ) 
return (rasult) ; 

»endi£ 

DebugMsg ( "ApBandCcunpreas success*); 
return (result! ; 

) 

* end if 

/" Display stuff for debugging 
CCrafFtr wPort. savePort; 
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Rect rect; 
3cr255 scr; 

GecPorc ( (Graf Ptr • J&savePorc } : 
SetCWMgrPort UwPort ) ; 
SecPor: ( (Graf Ptr) vport ) ; 
SetRec; ILrecz. 0. 0. 5C, 30) ; 
ClipRecc ( trecc J ; 
EraseRect I trect ) ; 

NumToString(frmh->frair ( « number, str) ; 

HoveTo!0.20> ; 

Drawstring* str) ; 

if ( f rmh->f lags£XFH_INTRA) { 

SetRectUrect, 0. 30, 50,65); 

ClipRect (trecc) ; 

EraseRect Urect) ; 

NumfToString { frwh-> frame _number/24 . str ) ; 
Move7o<0, 50) ; 
Drawstring iacrl ; 

) 

SetRject (txect. -2000, 0,2000,2000) ; 

ClipRect (irect) ; 

Set Port ( (Graf PtrlsavePort) ;•/ 

«define flag.tre* 0x1 
•define flag_wave 0x2 
•define flag_ahov 0x4 
^define flag.fuXl 0x8 
•define DURATIOH €6666 

long ModeSviech<Globels -glob, KlicsFrame Header *fnnh) 
long modeeO, i, fpu 

Boolean repeat =glob->prev_f rame.af rmh-> f rame_mimber , 
next3glob->prev.frame^lssfxinh->franieInujnb«r; 
CGrafPtr vPort. savePort; 
R»ct rect; 
Str255 atr; 

DebugMagf •NpnodeSvitch - b«gin a ); 
if ( fnnh-> frame _numbexss0) 

Cor<i*0;i<15;i**) glob->out f ijsfalse; 
if (repeat) { 

g 1 ob- > run.c imeaO ; 

DebugMagfSpModeSwitCh - repeat lend)'); 
return if lag_s.iow (f leg_full) ; 



if inert; 

switch ( fnnh->flag») ( 
case KFH.SJUP: 

DebugWsgC\pHodeSwitCh - next/skip*); 
g 1 ob- >pr ev^f rame » f rmh- > f r ame.nujnber ; 
if <g lob- >5ys_tiroe> DURATION) { 
glob->run_time»0; 

if ( gl ob- > r eai_ frame J sgiob->dpy_ frame) 
mode I »f lag.vave I f lag.snow; 

) elet ( 

unsigned long frame, late; 

frame »glob-> run. frame* ( g lob- >sync_time-glob-> run. time) /DURATION; 
la t e a ( g 1 ob- > sync_c ime -g 1 ob- > run.t ime ) % DCJRAT IOH ; 

if ( frame<»q lob- >prev_ frame glob->reel_f rame ! »g lob- >dpy_ frame) 
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^ mode i rf lag.wave i ; lag. show; 

if ( iraxte<=glob->prev_r rame ii late*giob->wave_t ime+glob->dpy.t 
roodel»f lag.wave tlag show;'' 
) 

break; 
case XFH.INTRA: 

DebugMsg ( * vpMcdeSwitch - nexc / intra " i : 
moda=f lag.tree; 

g 1 ob - > pr e v_ f r ame = f rmh - > t r ame _numbe r ; 
glob->raal_f xame»glob-*prev_f rame; 
if iglob->sys.time>DUKATICN) ( 
glob->rurv_t ime=0: 

mode I sf lag.wave I f lag.sftow i f lag.f ull ; 
) else 

if (glob->run_cime»=0) {•/ 

glob->key.time=glob->sync_time-glob->run_cime; 
glob->run_cin«=glob->sync_time-glob->sys_c iIne; 
glob->run.f rameaglob->prev.f rame; 
mode I = f lag.wave I f lag.showi f lag.full; 

) else ( 

unsigned long frame, lace; 

tram«sglob-> run. frame* (glob- >aync_c ime -glob- >run_ time ) /DORATIG 
late» (glob->syne_t ime -glob- >ruf^_t.ime) * DURATION; 
if ( frame<*g lob- >prev. frame) 

mode I » f 1 ag.vave I £ iag_show I f 1 ag.f ul 1 ; 

)•/ 
break; 
default: 

DebugMsg { *\pMode Switch - nexc /inter • ) ; 
modes flag.tree; 

g 1 ob- > pr ev_ f.r ame « f rmh -> f r ame.number ; 
g 1 ob- > r ea 1_ f r ame »glnb-> pzev.fr ame; 
if (glob->eys_time>DUBAT10N) ( 

g 1 ob- > run. t una ».0 ; 

mode I » f lag. wave I f lag.shov; 
) else 

if { g 1 ob- > run. t ime » ■ 0 ) ( 

g 1 ob- > run_t ime sg lob- > *ync.t ime -g 1 ob- >sya_t ime ; 

g 1 ob- > run. f rame*g 1 ob- >prev_ t x ame ? 

mode I » f 1 ag.wa ve I flag. show ; 
) else < 

unsigned long frame, lace; 

t rame»glob->run_f rame* < glob->sync_cime-glob->run.t ime ) /EUJUTICC 
late= i glob->sync_time-g lob- >run_ time ) % DURATION; 
if (frame<*glob->prev.f raavel 

mode I «f lag.wave I flag.show; 
if Hrame<»glob->prev_f rame &fc late+glob->tree_t ime+g lob- > wave 

mode I »f lag.wave I f lag.shov) •/ 

) 

break; 

) 

else 

switch (frmh-> flags) { 
case KTH.SKIP: 

DebugMsg(*\pModeSwitch - jump/skipM; 

g lob- > run^t imeaO ; 

break; 
case KFH_ INTRA: 

DebugMsgf\pHoderwitch - jump/ictra* ) ; 

mode«f lag.t ree I f lag.wave I f lag.show I f lag.full ; 

for (i»g lob- >prev_ frame ?i<frmh- > frame .number : l ►+) 
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^ glob->out ( f rn\h*:>f rame_number%l5) =0; 
g 1 c b- > pr ev_ t r a me » i rrah - > f r ajne_numbe r ; 
glcb->real_f rare* rg lob- >prev_ frame ; 
g 1 ob- > run_c ime = 0 ; 
break; 
default: 

DebugMsg ( " \pModeSwitch - ju/np/ inter* ) ; 

g lob- > run. time s0; 

break; 



display into* ) ; 



) 

DebugMsgM ' \pModeSwitch 
•ifndef COMPONENT 
/ • glcb->out I f nnh->f rame_number*151 » (mode* flag. show) ! =0; 

for(i=C, fps=0; i<15; if (glob->out ( i ] ) £ps<*+; 

GetPort ( {Graff tr • ) &9avePort) ; 

GetCWMgrPort l&wFort ) ; 

SetPort ( (Graf Ptr) vPort ) ; 

SetRect { ixect ,0.20.120.50); 

ClipRect Urect ) ; 

EraseRect (&xect ) ; 

NumTc String ( f rmh-:> frame _ number » str) ; 

MoveTo(0 ( 33); 

DrawString ( str ) ; 

DrawStringt *\p: •) ; 

WuinToString{£ps, atr) ; 

Drawstring (str) ; 

MoveTo (0,50); 

fort i«0i i<15; i**) 

if (glob->outfi) ) Drawstring ( »NpX* ) ; 

else DrawScrino(»\pO B ) ; 
SetRect (tract, - 2000, 0*2000. 2000) ; 
ClipRect Urect) ; 
SetPort f (GrafPtrJaa^ePort) ;•/ 
*endif 

D*bugNag ( • \pMode5witch - end' ) ; 
return (mode) ; 

) 



wifndef: ENCODER 
pascal long 
KLBandDecompress (Handl 
( 

•pragma unused (storage 
Globals ••glob = 
ImageDescription 
int 
char 
shore 
Rect 
long 
OSErr 
short 
long 
int 
int 
int 

KlicsE 

KlicsFraneHesder 

char 

long 

SharedClobals 

/* 

FILE 



e storage, register CodecDeccmpressFarajns *p) 
) 

(Globals *♦ I storage; 

•*desc ■ p->isiageDescription; 
x,y; 

•baseAddr; 
rowBytes; 
dRect ; 

offfletH.offsetV; 
result e noErr; 
•src(3],*dat [3); 
*pi*map; 

width* ( 'desc ) - >width-KLExt endwidth { ( *desc ) - >width) ; 
height* (*desc) ->heigbt*KL£xcendHeight ( ( *desc) ->height I j 
hwidtb*width>>l,hheight-height»l,area3height •width; 

kl«; 

•frmhj 
mmuMode*l; 
moda; 
•sGlob; 
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cnar ^ f ile.r.a/ne ( 3C] ; 

CGrafPtr wPor:. savePort: 

Rcct rect; 
Stx25 5 sr.r; 



HLockt (Handle) glob) ; 
DetucMsg ■ • \pBar.dDecoirpress * ) ; 

> *gIob)->sys_timesGetTimervalue(i<*glob) ->aya_c ame J ; 
(•glob) ->sys_c ime-s < »glob) ->sync_tim«; 

•ifdet PERFORMANCE 

(void) PerfControl ( The PCI obals, true) ; 
•endif 

kle»4 ( *glob) ->kle ; 

sGlobs I -glob) ->sharedClob: 

dRect = p->srcRect; 

if ( ! Trans formRecc (p->matrix. idKect ,nil) ) ( 
DebugMsg ( "\pTransf crmRect Error*); 
return tparam£rri ; 

) 

rovBytes « p-»datPixNap. rovBytea & 0x3££f; 
offsetH s (dRect. lef: - p->dstPix*iap. bounds. left) ; 
switch ( p->dstFixMap.pixelSixe ) t 
case 32: 

offsetH «»2; 

break; 
case 16: 

offsetH 

break; 
case 6: 

break; 
default: 

result = codecErr; 

DcbugMsg ( •NpDepth Error - ) ; 

goto bail; 

off set v » (dRect. cop - p-xJst Fixtiap .bounds . top » • rovEytes; 
baseAddr » p->dsc PixMap. baaeAddr * offsetH ♦ offsetV; 
pixmaps (long MbaseAddr; 

/..•••••••«•....•*»•••»••,•••• • 

* Klics decode 



src 10] - <*glob)-:>arc(0] ; arcf 1) » Cglob) ->src 1 1] ; arc (2 J = t •qlob) ->src 12 J ; 
dst [0] = Cglob)->dat(0] ; dat U) * ( 'glob) ->dsc (1 J ; dsc {2 J = I •glob) ->dst (2] ; 

f rmh= (KlicsFr an»e Header *)p->datar 

kle->buf ,buf« (unaigned long • ) <p->daca*3ixeof (KlicsFraroeHeader ) ) ; 
node* ModeSwi t ch ( * g 1 ob , f ran ) ; 

KlicsDecode<arc.dat.4kle->se<jh ( frmh. ikle- >buf , mode. ( 'glob) ->acale.i ( •glob) ->tr 

if ( kle->buf .ptr-kle->buf.buf > frmh- > length* 2 ) 

DcbugMa^ { m \pwaming : Decon^>r*asor read passed end of buffer*); 

p->data(0)»'X'; 

p->data^l)=modeifaa<J_tree? , T , : • * ; 
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p->dit*<2]=modeAf lag.wave? -w : * 
p- >da ta f 3 j *mode* f lag.ahow? * S ' : 
p-xl»ta(4]»mod©t£lag_full? t F' : ' 
p->data ( 51 -£rmh-:> flag at KFH_ INTRA? ■ I ■ : ■ 
p-xiatateiaerrah^nags&KFH.SKlP?'^ : ' 
p->cUta[7]s'X*; 

p->data-=p->buf ferSize; 

/•.*•••.*•.«•••*.•••.,••••** «..*.*.»•.•.,... 

• signed 10 bit YUV-unsigned 8 RGB convert 
.«••«•••*••* . 

«ifdef CCMPONDTT 

SwapMMUHod€ l&rnrrruModel ; 
*endif 

if <node4f lag_shovi ( 

( *glob) ->sync_c ime=C«t Timer va lue (6 ( *glob) ->sync_time) ; 
l"glob) ->dpy_f r«iM> ( *globi ->real., frame; 
if {rglob>->acale(2]<fglob)->3caleUJ) { 
switch (kle->segh. channels I ( 
case 3: 

switch (p-xistFixMap.pixelSire) { 
case 32: 

if (modeiflag.full) 

OW32X2 <sClob->tah(Uae32-lJ ,pixmap,arc (0) ,arc(l] ,srci2].wi» 

else 

OUT32X2D<sGlcb->tabtOse32-U . pixmap, sre ( 0 J .sicf 1J . arc (2 1, v 
break; 
case 16: 

OOT16X2<5Glob->teJ&(U9€l6-l] .pixmap. srcIOJ . src(l) .arc [2 J , vidth> 
break ; 
case 8: 

CKJT6X2 isClob->tab(Use8-lJ , pixmap, arc 10] . src(l) . axe (2 ] ,width»( 
braak; 

) 

break; 

) 

} elae ( 

switch (kle ->seqh. channels) { 
case 3 : 

switch {p->dstPixHap.pixelSize) ( 
case 32: 

if tmodetf lag.full) 

OUT32[sGlob->tahtUse32-l] .pijctiap, arc [0] , sre [l] , sre [2J . widt. 

else 

OUT32D(sGlob->tab[Uae32-l] , pixn>op , s rc ( 0 J . srctl) , srct2] ,wid 
break; 
case 16: 

OUT16 (aGlob->teb(Uael6-X] , pixmap, sre f 01 , srcdJ , arc (2 J , width»( 
break; 
case 6: 

ODT8(sGlob->tib(Use8-l] .pixmap. src(0] , srcfl] , arc (2 3 , width»<*g 
break; 

) 

break; 

) 

) 

(•glob) ->dpy_timfi»GetTimerValue (&< •glob) ->dpy_t ime ) ; 
( •glob) ->dpy^tiiDe-a ( *glob) ->syne_time; 

) 
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CLEARA2 ( J ; 

1 4 glob> ^sync.ti^esGecTi.nerVdlue : 'glofci ->sync_cinw) ; 

•ifdef COMPONENT 

SwapMMUMode < imnuMode ) : 
■er.dif 

tail: 

HL-nlccki ■ Handle) g lot) ) ; 

•ifdef PERFORMANCE 

it (0 ! a ( result = Per f DumpiThaPG'lobals. * \pDeccde . peri • . false. C) ) ) 
recurni result ) ; 

•endif 

DebugMsg ( • NpBandDecompress success* ) ; 
return (result) ; 

} 

"endif 
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/ •••••••?••••••••••••••»•••• 

♦ 

• <0 Copyright 1SS3 KLICS Limited 
All rights reserved. 

• Written by: Adrian Lewis 

•/ 

/ * 

• Seccnd generation header file 
•/ 

•include <stdio.h> 

/• useful X definitions •/ 
/•typedef char Boolean;*/ 
typedef char 'String; 
♦define True 1 
"define False 0 

/• new Blk definition */ 
typedef inc Blk[4]; 

♦define wr_Ha«x 0 
•define WT_Daut>4 1 

7* mode constructors */ 
♦define M.LPF 1 
♦define M_STILL 2 
♦define M_SEND 4 
♦define M_STOF 6 
♦define M_VOID 16 
♦define N_QUIT 32 

/• LookAhead histogram */ 
♦define HIS70 300 
♦define HISTO_DELTA 15.0 
*define HISTO.BITS 10 

/• Fast Functions */ 

/* I* the block all tero ? •/ 
udefine BlX2ero (block) \ 

block[0]ss0 &4 blocMllsrO « block(2)«0 4& block|3]« = 0 

/• Sum of the absolute values */ 
* define Decide (new) a 

abs(new(0] )* \ 

abs(nevtl])+ \ 

ai>s(nev(2) >♦ \ 

abs ( new [ 3 ] ) 

/• Sum of the absolute differences •/ 
♦define Decide Delta (new, old) \ 

a±>s|new(0]-oldt0]>* \ 

a±»slnewfl]-old(13)* N 

abs(nev[2]-old(a])^ \ 

abs<nev(3]-oldI3)> 

/* Adjust the norm for comparison with SigmaAbe •/ 
♦ define Decide Double (norm) (4.0*norm) 

/♦ Get addresses from x,y coords of block, sub-band, octave. 
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• image size «?d nask 'direct 1/ related to occavej iriormacion 

■define Get^ddr (addr .x.y , sub. oc: . s ;ze. mask i \ 

• smask=mask>>l . v 

x0=xl (suto&l?smask:0) . \- 

xl*xi I sub&l?smask:C ) imasX. \ 

y0 = (y I ! sub42?smask: C ) ) *size{0] . 

yls(y I ( sub&2?smask: 0) I mask ) *siie[01 ; \ 

addr (0] =x0*y0; \ 
addrfl] =xl*y0; \ 
addr[2]=x0*yl; \ 
addr[3).xl*yl; \ 

) 

/* Cet data values from addresses and memory •/ 
define CetData ( addr, block, daca) \ 

block | 0]= t ;nt ) data laddrfO] ) ; \ 

block(l]slint)oata(addr(l]]; \ 

block [21= tint i data [addr f2 ) ] ; \ 

block ( 3 J * t inc ) dat a I addr ( 3 ) J ; 

^define VerifYDataiblocX.mask.tn.pl \ 
emp=block£ma3k; \ 
if (tirpisO cmp:»mask) { \ 

block=block<0*raaak:-mask; \ 

) 

/• Put daca values to memory using addresses •/ 
•define PutData ( addr, block, data ) \ 

dataladdrfO) ]= (short) block (0) ; \ 

Oatal«ddr[l)]»(shorx)block(13 ; \ 

data faddr (2IJ » (short >block(2); \ 

dataladdrt3] ]* (short) block [3) ; 

/* Put zero's to memory using addresses •/ 
•define Put Zero ( addr, data) \ 

data laddrfO] J*0; \ 

dataladdrfl] )=0; \ 

data(addr(2]]«0 ; \ 

data(addrO) J = 0; 

/* Mode: M_V0ID Put zero's and find new mode •/ 
*define DoZero (addr. dst. mode , oct) \ 

PutZerc(addr .dst J ; \ 

mode (oct) socts * 0 7M.STOP : H_VO ID; 

/* Descend the tree structure 

• Copy mode* decrement octave (I mask) » set branch to zero 
*/ 

•define DovmCounters (mode, oct .mask, blk) \ 
mode foct-1) =mode loct] ; \ 
oct--; \ 

mask ■ mask>>l; \ 
blk(oct]*0; 

/• Ascend the tree structure 

• Ascend tree (if possible) until branch not 3 

• If at top then set mode to M_QUIT 

• Else increment branch and x. y coords 
V 

#define StopCounters (mode. oct .mask. blk. x.y, oct s) \ 
while loct <ccts-l 6* blkfoct)==3) ( \ 
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blkioet I ».(L' \ 
rnasks mask<<l; \ 
x ;> -mask; N 
y t« -mask; \ 

zzz++; \ 

) v 

if (oct==octs-l) mode(occ)=M_OUIT; \ 
else ( \ 

bUtoet] — ; \ 

x "= mask<<l; \ 

if (blk[occ]=»2) y ~* mask«l; \ 
mod*(occ] «mode(oct<rl) ; \ 

\ 
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<0 Copyright 1993 KLICS Limited 
Ail rights reserved. 

written by: Adrian Lewis 



68000 Fa «t Forward/ Backward Haar 



macro 
FwdO 



move . w 
move .v 



fraddrO.tdC.LdH 

;fcaddx0> . tdG 
AdC.frdH 



dGsM short # )addrl 
dHadG 



endm 



macro 
Fwdl 


iaddrl.&addrO. fcdG.tdH 


move . w 
add.w 
sub.w 
clr.w 
asr.w 
addx. w 
asr.w 
addx. w 
mova . w 
move . w 


(taddrl).dO 
dO.idH 
dO.idC 
dO 

•l.tdH 

dO.ldH 

tl.&dG 

dO.tdC 

frdH, UaddrO) 

LdC, Uaddrl) 


v=* (short *)addr2 

dH*»v 

dC-*v 

d0«0 

<JAH»«1 

round dH 

dG»«l 

round dG 

• [ short • ) addrO»dH 
•(short *)addrl=dG 


* 

mend 






macro 
Fvd 


&bas«,aend, tine 




• 

movea..l 
move . 1 
asr.l 
movea. 1 
suba.l 
3do PwdO 

adda.l 
Fwdl 
adda.l 
cmpa . 1 
bgt.s 


£base,aO 

&lnc.dO 

el.dO 

aO.al 

dO.al 

a0,d4,d5 

frinc.al 

al.a0.d4,d5 

franc. aO 

aO, tend 

ado 


; addrOsbaao 

; d 0*1 AC 

; d0aino>l 

; addxl>addrO 

: addrl-= < ino>l ) 

; rwdO(addrO.dG.dH) 

; addrl+=inc 

; Fwdl(addrl,addr0.dC,dH) 
; addrO+einc 
; addr0<end 
; while 


ends 






Haai Forward TUNC 


EXPORT 




link 
Aoven. 1 


a6 f0 ; no local variables 
d4-d7/a3-a5,-(a7) ; store registers 


* 

move. 1 
roovea . 1 
mov* . 1 
mova. 1 
move. 1 


S0OOC(a6),d3 
5000Bia6> ,a3 
$0010(a6),d6 
$0018(a6).d7 
$0014<a6) ,d2 


; lnc= incl 
; basordata 
; endl 
; endS 
; inc2 
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edo 



movea. 1 a5.a4 

add*. I d6,a4 

Fvd a5.a4.o3 

adda.l d2,a5 

citipa.l d*?,a5 

blc.s «do 

Dovem.l <a7)*.d4-d7/a3-a5 

unli< a 6 



end=base 

end+»©ncll 

Fwd (base. end. inc) 

base*=inc2 

end2>base 

for 

xestor* registers 
remove locals 
return 



EMDFUMC 




macro 
BwdO 


'6addrO,&dG.&dH 




move.w 
move.w 


(iaddrO),idC ; dG-M short *>addrO 
fcdC.tdH ; dH=dG 




endm 






macro 
Bwdl 


iaddr 1 . & addr 0 . idC . *dH 




move . w 
add.w 
sub.w 
move . w 
move.w 


UaddxD.dO ; v. •(short *)addrl 

dO.fcdH ; dH*»v 

dO fcdC »* dC-»v 

fcdH. (4«ddx05 ; *(»bort «)addr0.dH 

tdC. (l*ddxl) ; '(shore •)*ddrl»«JG 




endm 





9do 



macro 
Bwd 

move a . 1 

move. 1 
asr. 1 
movea. 1 
suba. 1 
BwdO 
adda. 1 
Bwdl 
adda.l 
db£ 

endm 



tbase , A count . i inc 

&inc,dO 

#l,dO 

aO.al 

dO.al 

aO,d4.d3 

tinc.al 

al,a0,d4,d5 

tinc.aO 

& count, *do 



HaarBaOrward FUNC EXPORT 

* dO - spare, dl - countl, d2 - inc2. d3 

link a6,«0 

movem.l d4-d7/a3-a3. - (a7 ) 

move.l $OO0Cta6),d3 

movea. 1 S0O08<e€).a5 

move.l $0010(a«).d6 

^ve.l $0018(e6).d7 

move.l $0014(a6l.d2 

subq.l *l.d7 
lsr.l 

subq.l «l*d6 



addrO=b»se 

dO=inc • 

dO*iti->>l 

•ddxi-addrO 

addrl-*(inc»l)" 

BwdO laddrC.dC.dH) 

addrl*»inc 

Bwdl ( addr 1 * addrO , dC , dM ) 

addrO+sinc 

while -li»count 



incl. d4 - dC. d5 - dH. d6 - loopl, d 

; no local variables 
r store registers 

inc* incl 

base-data t 
loopX (width/height) 
loop2 (height/width) 
inc 2 

loop2-»l 
loopl/»2 
loopl-«l 
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3do 



move . 1 

EwCl 

adda . 1 
dbf 

rrxvein. 1 
unlk 

ENDFCNC 



dS.dl 
a5.dl.d3 
d2.a5 
d7 , 9do 

»a7)*.d4-d7/a3-3i> 
a6 



HaarXTopBvd FUNC 
link 



movea . 1 
move . 1 
lsr.l 
subq. 1 
move . 1 
move . 1 
swap 
neg .w 
add.l 
move.l 
dfcf 



(?do 



unlk 
res 

ENDFUNC 



EXPORT 
a6. #0 

S0008(a6) ,a0 

S000CU6) ,d3 

#l.d3 

#l.d3 

(a0) ,d0 

dO . dl 

dl 

dO 

dl.dO 
dO. (aOl* 
d3.9do 

a6 



aarTopBwd TUNC EXPORT 



edoi 

9do2 



link 
movdr . 1 

movea . 1 
movea . 1 
move . 1 
move . 1 
move. 1 
add.l 
lsr.l 
lsr.l 
subq.l 
suDq.l 
adda.l 
move. 1 
move . 1 
move. 1 
move . 1 
add.l 
sub.l 

move. 1 

swap 

neg.w 

add.l 

move.l 

move.l 
swap 



a6.*0 

04 -d6. -<a7) 

$0008(a€),a0 
aO.al 

S000Cla6) ,d< 

S0010ta6),d3 

d3.d« 

d6.d6 

#l,d« 

«l.d3 

• l,d« 

*l,d3 

d6,al 

d3.d5 

(a0) ,d0 

<al),dl 
d0.d2 
dl.dO 
dl.d2 

dO.dl 

dl 

dO 

dl.dO 
dO. <a0)* 

d2.dl 
dl 



co\;nc lsloopl 

Bwd(base. count . inci 

base~=inc2 

while -l!*--loop2 

restore registers 
remove locals 
return 



no local variables 

start 
area 

area (long) 

area-=l 

dO-HC.-Y 

dlsHG 

dlsGH 

dO»H(-G) 

dO.Ol 

•Y**«01 

while -I! =--area 

rtnovt locals 
return 



no local variables 
store registers 

startK 
startC 
height 
width 

linelan»width 

linelen (bytes 1 

height/»2 

width/-2 

height-»l 

width-*l 

startG*slinelen 

line count* width 

dO=HAHB»*YO 

dl*GAGB**Yl 

dSsHAKB 

dO-OADB 

d2eIAlB 

dl-HG 

dl=GH 

dOaH(-G) 

dO.Ol 

•yo**«oaob 

dlsHC 
dl-GH 
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=k!2 




add.l 


di,d2- 


; d2=01 


move . I 


d2. (alU 


; •Y1**=1A1B 


dbf 


d5.$do2 


; while - 1 ! =--linecount 


nove . 1 


al.aO 


; scarcH=scartC 


dJbf 


d4. 3dol 


; while -l:=--heighc 


movem. 1 


la7)*,cU-d6 


; restore registers 


unl)t 


a6 


; remove locals 


rca 




; return 


ENDFUNC 






am 
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• I Ccsyricht 1993 KLICS Limited 
- al; njnts reserved. 

• Written Dy: Adrian Lewis 

• • " • / 

2D wavelet transform convolver (fast hardware emulation) 
New improved wavelec cceffs : 11 19 5 3 

Optimned for speed: 
dim - False 
src/dst octave == 0 



idefir.e FwdS ( addrO , dAG, dAH) \ 
vi'tsftcrc ♦laddrO: v 
dAC« (v3=v* (vs»v<<!) ) ; \ 
dAG*rV4 »vs<<»1 1 r \ 
dAHsv3-Hvs<«l ) ; \ 
dAH*=v3* ( vs«8 1 ) ; 

•define Fwd 1 ( addr 1 . dAC . dAH , dBG , OBH ) \ 
vs • ( shore * ) addr 1 ; \ 
dSCw (v3sv* (vs=v<<1 ) 1 ; \ 
dAH**v*(vs«<»l) ; \ 
dBK=v3* (vs<«»l ) ; \ 
dAG-=v3* (vs«=l) ; 

• define Fwd2 (addr 2 , addr 1 . addr 0 , dAG. dAH. dBG. dBH) \ 
v**( short *)addr2; \ 
dAM-»<v3=v-*(va=v«l) ) ; \ 
dflC*»v* ivs<<el) ; \ 
dAG*»v3+ ( vs«=l ) ; \ 
dflH*sv3+<VS<<3l) ; \ 
•(short •;addr0s(dAH*15)>>5; \ 
♦(short: • I addrl- tdACWIS ) »5; 

♦•define Fvd3 i addr 3 . dAG . dAH , dBC , dfiH ) \ 
vs' (short »)addr2; \ . 
dACs ( v3sv* i vs»v-s<l ) ) ; x 
d£H*=v* (vs<<=; i ; \ 
dAH*v3- (vs«sl ) ; \ 
dBC-»v3* ( vs<<el ) ; 

•define FvdO ( addrO . addr 3 , addr 2 , dAG. dAH. dBG. dBH) \ 
v.* : short •JaddrO; \ 
dBH-* (v3»v* (vs«v«l J J ; \ 
dAG-»»v* ( vs<<sl ) ; \ 
dBG*=v3* (vs<<«a) ; \ 
dAH*«v3«r(vs«sl); \ 
•lshort •)addx2»(dBH+15)>>5; \ 
•(shcrc •)addr3«*dBG*15)>>5; 

'define rvdE(addr3.addr2.dBG.dBH) \ 
vt'l short # )*ddr3; \ 
dBH* = (vs*v<<1) ; \ 
dBG-«<vs«2); \ 

•fsbort ♦)addr2=idBH*15)»5; \ 
•(snort • ) addr3» (dBG*15) >>5; 
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i*defir.e Fwd (base, engine) \ 
addrOsfcase; \ 
addr3»addr0- < inc>>2 ! ; \ 
addr2 = addr3- < inc>>2) ; \ 
addrl=addr2-(inc>>2) ; \ 
FwdSladdrO,dAG,dAH) ; \ 
addrl ♦cine; \ 

Fwdlladdrl.dAC.dAK.dBG.dBH: ; "\ 
addr2*=inc; \ 

Fwd2laddr2,addrl.addr0.dAC,oJW,dBC.dBH); \ 

addr3+=inc; \ 

while <ad6x3<and) ( \ 

Fwti3(addr3.dAC,dXH,dBC,dBH) ; \ 

addrO*=inc; \ 

FvdO(addrO, addr3 . addr2 .dAC, dAH. dBG . dBH) ; \ 
addrl inc; \ 

Fvdltaddrl.dAG,dAH,dBG,dBH) ; \ 
addr2**inc; \ 

Fwd2(addr2, addrl, addrO.dACdAH.dBG.dBH) ; \ 
addr3*= inc; \. 

) \ 

FwdEiaddr3.addr2.dBG.dBH); 

extern void FASTFOKWARD ( char •data, long incl. long endl. long inc2. char *«nd2)j 
extern void HAARFORWAAD ( char *data, long incl. long endl. long inc2. char »end2i; 

void FastForvardtchax *data. long incl. long endl. long inc2. chax -end2) 

4 register short v, vs. v3, dAC. dAH. dBG, dBH. inc; 
register char 'addfO, 'addrl. *addr2, •addr3. ••nd; 
char *base; 



inc* incl; 

for (base*daca;base<end2 ; baae*sinc2 ) ( 
endsba s«-» «ndl ; 
Fwd (base. end. inc) ; 

) 



void Daub4Forward( short -data, int si2€l2}. int oct^dst) 

int oct, area»si2cl0]*si2«[l]«l; 
short width=si2«(0]«l; 

char »top»area* (chax *)data, •lett=vidth+ (char Mdata; 

f cr (oct =0; oct ! soct_dat;oct*+) { 

lone cinc*2<«oct, cinc4acinc«2. m . to 

nnc*ti..(0)«ocfl, rinc4*rinc«2; /• col and row increments in t- 

FASTFORWAKD ( ( char * > data. cinc4 , width-cinc . r inc. top) t 
FA£TFORWARD( (char *)data, rinc4 , axea-rinc. cine, lef t ) ; 

) 

) 

void HaarFcrv*rd( short -data, int size (21. int oct.dst) 

int oct, axea»aii«[0)»si2etlj«lt 
short width»ai2e(0]«l: 

chax •top»area*<ch«r *)data. • lett »width* (char ♦Jdata; 

f or (oct*0;oct !»oct_dat;oct**) < 

long cinc*2«oct, einc2»cinc<<l , 
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rinc^size(0]<<oct»:. rinci = r anc<<l ; " cei ana row increments :n t 

KAARFOHWARDl (char •) data . c inc2 . width . rinc. top: : 
HAARTORWABIU (char • i data. nnc2 . area, cine, ief^ : ; 



vcid Hybx-dforvardt shor- 'data, int site (2], ir.t oct_dat i 

i 

int cct, area=size(0 ] •size 1 11«1; 

short width=si2ef 0] <<i; 

char *cop=area* (char *)data. • left -width* (char •Jdata; 

KAARFORWARD ( (char •! data, 4 , width, size fO)«l, top) ; 
HAAKFCFWARDf (char •) data , size [ 0 ] «2 , area. 2 ,J eft ) ; 
for (oct=l;occ ! roct.dst ;oct**» ( 

long cinc=2<<oct. cinc4=cinc<<2 . 

rinc»sizelO]«oct*i. r inc4 = rinc«2; /• col and row increments in t 

rASTFCWARDl (char •) data . cinc4, width- cine, rinc, top) ; 
FASTFOKWARJD ( (char • ) data . rinc4 . area - rinc . cine , Imtt) ; 

) 

) 

«de*ine BwdSO(addr0.dAC.dAH,dBH) \ . 
v=* (short •)addrO; \ 
dAGfi - lv3=v+ I VS=V«1) ) ; \ 
dAH»v*(vs« = U ; V 
dBH»vs<<l; \ 

#de:in« BwdSl (addrl, addrO.dAC.dAH.dBH) \ 
v=« (short •) addrl; \ 
dBH*s (vs«v<<1) ; \ 
v3«vs*v; \ 
dAG*=v3«*(va<<»2) ; \ 
dAH-=v3* (va<<»l) ; \ 
•(short * j addrO» <dBH+3 ) >>3; 

•define Bwd2 ( addr 2 , dAG , dAH , dBG , dfiH) \ 
v=*( short •)addr2; \ 
dfiCc - < v3=v* ( vs=v<<1 ) J ; \ 
dBH»v (va<<sl) ; \ 
dAH»=v3* (vs<*sl) ; \ 
dAG+=v3* (vs<<=l ) ; 

-define Bwd3 ( addr3 . addr 2 , addrl . dAG, dAH, dBG , dBH) \ 
v=-( short •)addr3; \ 
dAH»= (v3»v* ( vs«v<<l) J ; \ 
dAG*«v+ (vs<<slJ ; \ 
dBG**v3+ (vs<<=!) ; \ 
dBH-*v3+ (vs« = l ) ; \ 
•(short * ) addrl* (dAH+7) >>4; \ 
•(short • ) addr2» (dAG«*7)»4; 

♦define BvdO < addr 0 , dAG. dAH. dBG. dBH) \ 
v»* (short •)addrO; \ 
dAG« - (v3»v* <v»»v«l) ) ; \ 
dAH=V+ <vs«sl) ; \ 
dBH*ev3* ( vs«*l) ; \ 
dSG*-v34 ( vs««*l) ; 

•define Bwdl (addrl . addrO. addr 3, dAG. dAH. dBG. dBH) \ 
vs» (short * i addrl; \ 
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dBH+a l v3av* t vs«w<<1 ) ) ; \ 
dBG*»v* i vi«i 1 ) : \ 
dAC^«v3* iv3<<=l) ; \ 
ciAH-av3* * v«<<» 1 ) r \ 
•(shore * )addr3= <dBH+7) >>4; \ 
•(short • ) addrO= (dBG*7) >>4: 



^define BwdE2 (addri . dAG. dAH. dBH) \ 
v=*ishcrt *:addr2; \ 
v3»v* ( va=v« 1 ) ; \ 
dBHs(vs<<»2) ; \ 
dAH*3v3*vs; \ 
dAG*=v3* ivs« = l) ; 

*defina BwdE3 (addr3 , addr2 . addrl . dAG. dAH, dBH) \ 
v:» (short # )addr3; \ 
dAH*= (v3sv* (vs=v<<1 ) ) ; \ 
dAG*»v* (vs«»l ) ; \ 
dBH-^v3*ivs<<sl) ; \ 
dBH-*v3*tvs<<=l) ; \ 
•(short •) addrl* (dAH+7)»4; \ 
•{short ♦)addr2=(dAC+7)>>4; \ 
•Ishort •)addr3=(dEH*3)>>3; 



'define Bwd (base, end, inc) \ 
addrOsbase; \ 

addr3»addx0- (inc»2) ; \ 

addx2=addx3 - ( inc>>2) t \ 

addxl=*ddr2- (inc»W ; \ 

BwdSO IdddrO.dAG.dAH.dBH) ; \ 
addrl* =inc; \ 

BvdSl ( addrl . addrO. dAG, dAH* dBH) ; \ 

addr2+«inc; \ 

while Udar2<end> { \ 

Bwd2 ( addx2 , dAG , dAH, dBG. dBH) ; \ 

addr3*=inc; \ 

Bwd3(«ddr3,addr2 ( addrl.dAG.dAH.dBG,dBH); \ 
addrO*»inc; \ 

BwdO ( addrO , dAG . dAH . dBG , dBH ) ; \ 

addrl+einc; \ b ^ 

Ewdlladdrl.addr0.addx3,dAG.dAH,dBG.dBH); \ 

addr2*«inc; \ 

) \ 

Bvd£2(addr2,dAG,dAH.dBH) ; \ 
addr3*=inc; \ 

BwdZ.3 < addr3 , addr2 , addrl , dAG , dAH , dPH) ; 

extern void FASTBACXWARD ( char -data, long incl. long loopl. long inc2. char -end2| 
extern void haarbacxwafd ( char -data, long incl, long loopl, long inc2. long loop2) 
extern void HAAKTOFBWD ( char •data, long height. long width); 
/• extern void haarxtopbwd < char »data. long axaa); # / 

void raatBackward(char 'data, long incl, long endl, long inc2. char 'end2) 

* register short v, va. v3, dAG. dAH. dBG. dBH. inc; 
register char •addrO, -addrl. *addx2, •addrS, -end; 
char •baa«» 



inc=incl; 

fox tbas«»data;b»ae<«nd2 ;base^«inc2 ) ( 
end a base* endl; 
Bvdtbaac.end.inc) ; 

} 
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Daub4Bac*vard( short 'data.inc sizeRi.mc oc:_src) 

;nz ccc, area»sne C 0 J *si2e{l )<*<!; 
snorz width=size (0]<<1; 

char -topsarea* (char *)data. • lef t swidth* ichar *)data: 

f or(oc:=oct _src- l;oct>=0;oct ) ( 

long cinc=2<<oct, cinc4=cinc<<2 . 

rincsaize(0)<<oct*l. rinc4=rinc<<2 : /• col and row increments m t 

FAST5AC KWAAD ( (char • )data , rinc4 . area- I r:nc«l ) ►cine, left) ; 
fast BACKWARD ( Ichar *) data . c inc4 , width- icmc«l) . rinc. cop) ; 



void HaarBackvardfdfita, size.oct.src) 

short *data; 

int 91X6(2], oct_src; 

i 

int ocr. aiea = siie(0] •3i2e(l]«l; 

short width*six«(0]«l; 

char -top»area* (char *)data f * left rvidth* (char -Jdata; 

for (cct=oct_src-l;oct>0;oct--) ( 

long cinc*2«act, cinc2»cinc«l. ^ . „ 

rinc»sixe(0)«oct*l. rinc2«rinc«l; /• col and row increments m c 

haareac KWXRD ( (char • I data. rinc2 , a i ze ( 1 ] »oct , cine . a i%m I 0 1 »oct ) ; 
HAARBACXWARD ( (char • )data. cine 2 , size (0] >>oct , rinc. si ie (1 J >>oct ) ; 

HAARTorBWD< (char •)data.size(ll,site(OJ) ; 
/* HAARXTOPBWDi (char •)data.axea»l) ; */ 

) 

void HybridBackvard (data. size, oct.src) 

short *data; 

int sixe(2], oct.src; 

( 

int oct . area-aizefO] 'sizel 1 ]<< w 

short width«sixe(0]«l; 

cr.ar *top=aree* ichar • >daca. *le:t =width* (char -Jdata; 

for toet»oct_src-l;oct>0;oct--) { 

lono cinc=2<<oct, cinc4ecinc<«2 , . ^ 

rinc*size(0]«ocfl, rinc4.rinc«2 ; /• col and row increments in • 

FASTBACKWARDf (char •) dat a, rinc4. area- (rinc«l) .cine* left) ; 
FASTBACXWARDUchar •) data ( cinc4 , width- (cinc«l >. rinc , top) ; 

HAARTOFBWDl (char * ) data* sized] * size 10] ) ; 
/• HAARXTOPBWDI (Char • >data, area»l) ; */ 

) 
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© Ccpy.r. ijg.ht-1 9.9.3. .KLICS-Li mi tec 
Ail rights reserved. 

Written by: Adrian Lewis 



53000 Fas tForvaxd/ Backward code 



macro 
FwdStart 



'klics* 



&addxC , &dAG, tdAH 





move.w 


(&addrO) ,d0 




move.w 


dO.dl 




add.w 


dl.dl 




move.w 


di.d2 




add. w 


d0.d2 




move . w 






add. w 


dl.dl 




aaa. v 


OU * tUnW 




add.w 


dl.idAG 




move.w 


d2.fcdMi 




add.w 


dl.dl 




add.w 


dl.idAH 




add.w 


d2.*dAH 




add.w 


dl.dl 


• 


add.w 
endro 


dl f tdAH 




macro 






FvdOdd 


fcaddrl.idACtdAJ 


• 


move.w 


(iaddrl).dO 




move.w 


dO.dl 




add.w 


dl.dl 




move.w 


dl.d3 




add.w 


d0,d2 




move, w 


d2 , fcdBG 




add.w 


dl.dl 




add.w 


dO,tdAH 




add.w 


dl.&dAH 




move.w 


d2,£dBH 




add.w 


dl.dl 




add.w 


dl.tdBH 




sub.v 


d2,fcdAG 




add.w 


dl.dl 


* 


sub.v 


dl.&d*G 




endm 





macro 
PwdBven 

move.w 
move.w 
add.w 
move.w 



vr ■ { short 
vs=v 

V3<<»1 

v3=v* 

v3svs«*v 

dAG=v3 

VS<<»1 

dAG+«v 

dAC*=vs 

dAH»v3 

V9«sl 
dAH*.v« 
dAH+ «v3 
V9<<=1 
dAH*»V3 



♦JaddrO 



v»* (short 

V9«V 
V$«al 

v3»va 

V3"V8*V 

dBG>v3 

VS<<»1 

dAH+.v 

dAH**vs 

dBH»v3 

vs<<sl 

dBH+-vs 

dAC-=v3 

vs«»l 

dAG-»vs 



>)addrl 



k addr2 . iaddrl , & addxO . tdAC . tdAH , AdBC . AdBH 

)addr2 



Uaddr2),d0 
dO.dl 
dl.dl 
dl.d2 



v«* (short 
vs»v 
v»«»l 
v3«vs 
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add.v 
sub. v 
add.v 
add.v 
add.v 
add. v 
add.v 
add .v 
add.v 
add . v 
add.v 
clr . v 

add*. v 
asr . v 
addx.v 
move . w 
move . w 



1 d0.d2 
d2 , tdAH 
dl.dl 
dO , tdBC 
dl . idBG 
d2.idAG 
dl.di 
dl. idAC 
d2.&dSH 
dl.dl 
dl . idBH 
dO 

•5.4dAH 
dO, idAH 
IS.&dAG 

dO.&dAG 
idAH. UaddrO) 
&dAG, Uaddrl) 



v 2 <= v 5 ♦ v 
dAH-=vj 
v s < < = 1 

dBG* =vs 

V5<<=1 

dBH*=vj 
VS<<=1 
dBH*«vs 
dO»0 
dAH>>«5 
round dAM 
dAG>>*5 
round dAC 

•(short ')addrO=dAH 
•tshort MaddrlsdAC 



mend 



macro 
FwdEnd 

move. w 

add.w 

add.w 

131.W 

sub.w 
clr .w 
asr . w 
addx.w 
air. w 
addx.v 
move . v 
move. v 



&addx3 , &addr2 . tdBG, £dBH 



(&addr3 ) ,d0 

dO.dO 

dO.&dBH 

12. dO 

dO.^dBC 

dO 

*5.£dBH 
dO.tdBH 
#5.&dBG 
dO, tdBG 
4dBH. Uaddr2) 
&dBG. Uaddr3) 



vsMshorc •jaddrJ 

V<<» 1 

dBH*»V 

v<<o2 

dBG-aV 
dO-0 
dBH>>«5 
round dBH 
dBG»*5 
round dBG 

• ( short * ) addr2»dBH 
• (short •)addr3*dBG 



endm. 



macro 

Fvd ibasa, tend, tine 

movea.l &baae.aO 

move.l tinc.dO 

asr.l f2.d0 

move* .1 aO , a3 

suba.l d0,a3 

movea .1 a3 , a2 

suba.l d0.a2 

movea.l a2,al 

suba. 1 dO.al 

FvdStart a0.d4,d5 

adda.l iinc.al 

FwdOdd al,d4.d5,d6.d7 

adda.l 4inc,a2 

FvdEven a2.al.a0.d4.d5.d6.d7 

adda.l 4inc.a3 

FwdOdd a3.d« ,d7,d4,d5 

adda.l linc,*0 

Fwdlven A0,a3.a2,d6.d7,d4.d5 

adda.l tine, a 1 

rwdOdd al,d4,d5,d6.d7 

adda.l & inc. a2 



edo 



addjO=bas« 

dOslnc 

d0*inc>>2 

addr3saddrn 

addr3-*(inc>>2) 

addr2»addr3 

addr2-«(inc>>2) 

addr 1» Addr 2 

addrl-a <icc>>2 ) 

FvdStart laddxO.dAG.dAH) 

addrl+=inc 

FvdOdd ( addx 1 . dAG . dAH . dBG . dBH ) 
addr2*=inc 

FvdEven ( addx 2 , addr 1 , addrO , dAG . dAH . dB 
addr3*»ine 

FwdOdd { addr 3 . dBG , dBH . dAG . dAH ) 
addr 0* vine 

FvdEven ( addrO , addx 3 , addr2 , dBG , dBH , dA- 
addrl+»inc 

FwdOdd' addr 1# dAG. dAH, dBG, dBH) 
addr2+=inc 
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FvdTven a2.al.a0.d4.d5.d6.d7 

adda.l. .tinea} 

cmpa.l a 3, tend 

txjt.v Sdo 

Fwdlnd a3.a2.d6,d7 



; Fwdrven.addr2.acdrl.acdxO.dAG, dAH.cl* 
; addx3»tmc 
; addr3<end 
; while 

.- FwdEnd(addr3.addr2,dBG,dBH) 



FascForward FUNC 



EXPORT 



link 
movem. 1 


a6, #0 

d4-d7/a3-a5, - (a7) 




; no local variables 
- score registers 


move . 1 
movea. 1 
movea. 1 
adda.l 
Fwd 
adda. 1 
cirroa. 1 
blt.v . 


$000Cle6).d3 
50008 (a€> ,a5 
aS.a4 

$0010<a6),a4 
aS.a4.d3 
$0014 (a6).aS 
$0018(a6).a5 
Odo 




• inc=incl 
base=data 
endabaae 
end+aendl 
Fwd ( base . end , inc ) 
baae* = inc2 
end2>baae 
for 


movem. 1 

unlk 

rts 


(a7)*,d4-d7/a3-a5 
a6 




restore registers 
remove locals 
return 


ENDFONC 








macro 
BvdStartO 


& addr 0 , tdAG , fcdAH . 4 dBH 




move .w 

nove .v 

add.w 

add.w 

move . w 

nog.w 

move.w 

add.w 

lsl.w 

move.w 


UaddrOKdO 

dO.dl 

dl.dl 

dl . dO 

dO , 4 dAG 

&dAG 

dO.tdAH 

dl.tdAH ; 

*2.dl 

dl.tdBH 


v»» (short *)addr0 
vs*v 

VS«*1 (V3»2V) 
V4«V9 (v*3v) 
dAC»v3 
dAGs -dAG 
dAH«v 
dAH+.vs 
vs<<*2 (vs=6v) 
dBH»vs 


endm 









macro 






EwdStartl 


& addr 1 . i addr 0 . & dAG , k dAH . 4 dBH 


move . w 


(taddrl) .dO 


; vc* (short *)addrl 


move.w 


d0,dl 


; VS»V 


add.w 


dl.dl 


; va«»l 


add.w 


dl.idBH 


? dBH*»va 


add.w 


dl.dO 


• v*»vs { v»3v) 


lal.l 


#2 r dl 


t vs<<»2 (vs«8v) 


add.w 


dl.dO 


■ v-nvj (vallv) 


add.w 


dO.tdAG 


■ dAG-«v 


add.w 


dl.dO 


V4iV8 (v»19v) 


sub.w 


dO.tdAH 


dAH-ov 


clr . v 


dO 


dO.O 


asr.w 


#3.idBH 


d£H»«3 


addx.w 


dO.fcdBH 


round dBH 


move.w 


tdBH, UaddrO) 


•(short *)addrO«dBH 



endm 
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EwdEven taddr2.idAG.tdAH.idBG. 



xcve . w 
Tcve . w 
add . v 
add.v 
move . w 
r.eg . w 
n\cve . w 
add. w 
isl .w 
add. w 
add .v 
add . v 
add.v 



!iaddr2) , dO 

dO.dl 

dl.dl 

dl. dO 

dO.idBC 

idBG 

dO.idBH 

dl. tdBH 

#2.dl 

dl,dO 

dO.idAH 

dl.dO 

dO.tdAG 



idEH 

v;' (shore -)addx2 
vssv 

vs<<»1 fvs«2v) 

V4svs (vs3vJ 

dBC=v 

dBG= -dBC 

dBH-v 

dBH*=vs 

V9<<=2 (VSaSvJ 

v+svs (v»llv) 

V*sVS (v*19v) 
dAG*=v 



er.dm 



macro 
BwdOdd 

move .w 

move .w 

add.v 

add.w 

add.w 

add.w 

add.w 

lsl.w 

add.w 

add.w 

add.w 

sub.w 

clr.w 

asr.v 

addx.w 

move.w 

asr.w 

addx.w 

move . w 



t addr 3 , iaddr2 . t addr 1 . idAC . idAH . idBG . tdBH 



tiAddr3) .dO 

dO.dl 

dl.dl 

dl.dO 

dO.tdAH 

dO . tdAG 

dl.idAG 

»2.dl 

dl.dO 

dO.fcdfiG 

dl.dO 

dO.Ld&H 

dO 

M.idAH 
dO, tdAH 
tdAH, (taddrl) 
M.fcdAG 
dO , idAG 
idAG. lt*drtr2) 



v* # i short •)addr-3 
vssv 

<vs*2v> 
<v«3v) 



vo<<»1 

V*3VS 

dAH-»v 
dAG*«v 
dAG*«v« 
V9<<*2 (vs»8v) 
v+«vs lv*llv) 
dBG+*v 

v-»vi (vsl9v) 
dBH-«v 
dOsO 
dAH»»4 

round dAH 

* (short •)ftddxl*dAM 

dAG»»4 

round dAG 

* (Short •)addx2'dAC 



en dm 



macro 
5wd£nd2 

move . w 

move .w 

add.w 

add.w 

lsl.w 

move.w 

add.w 

add.v 

add.w 

add.w 



t addr 2 . idAG , tdAH . tdBH 



(taddr2) 

dO.dl 

dl.dl 

dl.dO 

• 2.dl 

dl.fcdBH 

dl.dO 

dO.fcdAH 

dl.dO 

dO,idAC 



■ dO 



vs- (short • ) addr 2 
vs*v 

v«««>l (v»»2v) 
v*»vs lv»3v) 
v»«»2 «v9»8v) 
dBH*vs 

V*sVS (VallV* 
dAH*»V 

v*»vi (v«19v» 
dAC*»v 



en dm 



macro 
3viEnd? 



&a*dr-» . <addr2 . * *<*«r 1 . idAG . idAH . tdBH 



.*#*<n<*»i m~ rurrT mi* r 
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move . v 


(&addr3) ,d0 


move . w 


dO.dl 


add .w 


dl . dl 


add . w 


dl.dO 


add. w 


dO, idAH 


add .w 


dO. idAC 


add.w 


dl , idAC 


add.w 


dl.&dBH 


lsl.l 


»4 , dl 


sub.w 


dl,&dBH 


clr.w 


dO 


asr.w 


■4.&dAH 


addx.w 


dO.adAH 


move . w 


&d>H. (taddxl) 


asr.w 


«4,4dAG 


addx.w 


dO.idAG 


move. w 


&dAG, Uaddr2> 


asr.w 


*3.4dBH 


addx.w 


dO . tdflH 


move. w 


&dBH, (fcaddr3) 


endm 
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vs» (shore *)addr3 
vs-v 

V3«-l (Vjr2v) 

v*»vs (v«3v) 

dAH*=v 

dAG+rv 

dAG-r = V3 

dBH^.vs 

vs<<=4 (vr32vj 

dBH-=vg 

d0*0 

dAH>>-4 

round dAH 

•(short -JaddrlsdAH 

dAG»«4 

round dAC 

•(short •)addr2=dAG 
dBH»»3 
^ound dBH 

• (short *)addr3=dBH 



macro 
Bvd 



&base,*end.iinc 



fldo 



- movea . 1 


tbase. aO 


move. 1 


• ine.dO 


aar.l 


• 2. dO 


movea . X 


a0.a3 


suba.l 


d0.a3 


movea . 1 


a3,a2 


suba . 1 


d0.a2 


movea . 1 


a2,al 


suba.l 


dO.al 


BwdStaxtO 


a0.d4.d3.d7 


adda.l 


iinc.al 


BwdStartl 


al.a0,d4,d5,d7 


adda.l 


&inc.a2 


BwdEven 


a2.d4,d5.d6.d7 


adda.l 


iinc, a3 


BwdOdd 


a3.a2.al # d4.d5.d6 


adda.l 


iinc.aO 


BwdEven 


a0.d6.d7.d4.d3 


adda.l 


tine, al 


EwdOdd 


al.a0,a3,d6.d7.d4 


adda.l 


& inc . a2 


cmpa. 1 


a2, tend 




ftdo 


BwdEnd2 


a2,d4.d5,d7 


adda.l 


fcinc,a3 


Bvd£nd3 


a3.e2,al.d4,d5,d7 


endm 





; addrO abase 

; dO*inc 

; d0»inc>>2 

; addr 3= addr 0 

; addr3-*<inc»2) 

; addr2*addr3 

; addx2-a(inc»2) 

; addrl =add*2 

; addrl -*(inc»2) 

? BwdStareO(addrO.dAG.dAH.dBH) 

r addrl-»=inc 

: BwdStartl (addrl.AddrO.dAG.dAH.dBH) 
addr2*-«iac 

BwdEvon ( addr 2 , dAC . dAH . dBG , dBH ) 
addr3*-ine 

BwdOdd ( addr 3 , addr 2 . addrl , dAG, dAH. dBG 
addrO**inc 

BwdEven ( addr 0 . dBG , dBH , dAC , dAH ) 
addrl+sinc 

BwdOdd ( addrl , addrO . addr 3 , dBG . dBH. dAG 

*ddx2*»inc 

addr2<end 

while 

BwdEnd2 ( a ddr 2 , dAG . dAH , dBH ) 
addr3+*inc 

BwoXnd3 (addr 3 , addr 2 , addrl . dAG. dAH. d£ 



FastBacJcward 



func 



EXPORT 



link a6,#0 

movem.l d4-d7/a3-a5, - (a7) 

move.l $O0OC(a6> ,d3 

movea. 1 £0008(a6).aS 



; no local variables 

; store registers 

; inc* inc 1 

; base*data 



Ct tOf*"^tTi itp ri irrr /r» r ***** 
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rr.ovea . X 


a5.a4 


; end=tase 


adda. 1 


$0010ia6l,a< 


: cnd^enol 


Bwd 


a5,a4.d3 


: Bwd ( ba se . er.c . i nc : 


adda . 1 


S00l4(a6;.aj 


; t>ase+ = inc2 


crnpa . 1 


S0018(a6).aS 


, end2>base 


bit . w 


Gdo 


: for 


rrcven-.. 1 


Ia:)*.d4-d7/a3-a5 


: restore registers 


urlk 


a6 


; remove locals 


rts 




: return 


ENDFUNC 






END 
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* © Copyright 1593 JO.ICS Limited 
' All right* reserved. 

■ 

* written fcy: Adrian Lewis 
• / 

Test versions of colour space conversions in C 

•/ 

* include <Memory.h> 
'include <QuicXDrav. h> 

wdefine NevPoint »r (ptr. type, sixe ) \ 
saveZone=Get Zone U ; \ 
SetZone (SystemZone< ) ) ; \ 
if (nil»»iptrs(type)NewPtr<5ize) ) ) { \ 
SetZone (ApplicZone ( M ; \ 
11 (nil = =lptrsr(type)NewPtr(size) )) { \ 
Set Zone ( saveZone ) ; \ 
ret urn ( Memory Lz ror ()) ; \ 

J \ 

) \ 

SetZone <save2one) : 

typedef union ( 

long pixel; . 

char rgb [ 4 ] ; 
) Pixel; 

/* Sptcial YUV space version •/ 
'define rgb_yuv(pixmap, Yd \ 

pixel. pixel»0xe08080**pixmapf*; \ 

r» (short) pixel. rgb{l) ; \ 

gs (short ) pixel. rgb (2) ; g*=g; \ 

b» (short ) pixel. rgb(3] ; \ 

Y»<tx'<3)-b: \ 

g*»r; \ 

Y*=g*g*g; \ 

Y>>«4i \ 

Y**g; \ 
•Yc— ^Y; \ 
Y»«2; \ 
U*.b-Y; \ 
V*sr-Y; 

^define lifldt IY. low, high) \ 

Y< ( low<<2 ) ?lov«2 : Y> <high«2 ) ?high«2 : Y 

/• Standard YUV space version - Bt294 CR07(0) mode limiting •/ 
^define rgb_yvv32 (pixmap. Yc) \ 

pixel. pixel -0x80 8 080 A *pixmep**; \ 

r=(long)pixel.rgb(lJ ; \ 
{ long ) pixel ,rgb [2) ; \ 

b-(long)pix«l.rgb{3) ; \ 

y- (306*r ♦ 601»g * 117*b)>>8; \ 

•Yc*+ ■ limit(Y, 16-128, 235-128); \ 

U*« (512T - 42S*g - 83«b>»8; \ 

V*. <-173*r - 339*g <► 312*b)»8; 

void P.GB2YUV32 Mnne *pixmap. shors -Yc. short *y*r. shcr^ w vc. inc area, xnt wi* 
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long *pixrTiap2«pix7nap*cols. *row. -endspixmap-arez : 
shcrt •Yc2»YC*widtt; 

vr.iie ipixjnap<end) < 
r ow = p i janap** v idc h ; 
while ipix^ap<roy> ( 

Pucel pixel; 

ions r,g.b. Y.U=0. V=C; 

rgb_yuv32 (plwnap. yc) : 
rgb_yuv32 tpixmap. Yc) ; 
rgb_yuv3 2 i pixmap2 . Yc2 ) ; 
rgb_yuv32 (pixmap2 , Yc2 ) ; 
D>>=2; 
v>>s=2 ; 

•UC + -> = limit <U. 16-128,240-128) ; 
•Vc**»limic(V, 16-128. 240-128) ; 

) 

pixmap*=cols+co Is -width; 
pixroap2 + =col3«'Col5-width; 
Yc*=vidth; 
Yc2+»width; 

) 

) 

typedei struct ( 

snort ry. rv. by. bu; 
) RCB.Tab; 

OSErr RGBTablaClorig ••tab) 

i 

*CB_Tab -tab la; 

int i ; 

THi s a va Zona; 

NewPointer ( table. KGB.Tab* ^Se^sixeoi (RGB_Tab) ) ; 
•tab* (long •) table; 
£or(i=0;i<128;i«-+> { 

table(i) .ry=306*i»8: 

table(i) . rv«173-i>>8; 

tabl»(i) .by*117*i»8; 

tabled! .bu»83 w i»8; 

) 

fori iel28;i<256;i**) < 

table [i ] .ryO06» <i-256)»8; 
table(i) . rv=173* I i-256) >>8 ; 
table [i) .by=117- I i-256)»8; 
tablt(i) .bu»83* < i-256>»8; 

) 

return (noErr ) ; 

) 

typedef struct ( 

short ru, gu. bv. gv; 
) UV32_Tab; 

OV32_Tub *UV32_Tablal) 

{ UV32_Tab uable; 

int i ; 

table»«UV32 w Teb • )NevPtr (236*sizeOf (UV32_Tab) » : 
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fort i«C;i<l28;i**l ( 

cable (i) .ru=:2 8*(14 36*i>>10); 
tatl«(i) .gurl2 8-<-731»i>>10) ; 
:able(il .bv=128~ 1 1815* i>>10) ; 
cableUJ .gvr-352 • i»10 ; 

) 

fort 1 = 128 ; i<2S€ ; i*- ) [ 

table [i] .ru = 128-il4 36» [ i-2 56)»10) ; 
cable (i J .gu=128* I -731 » ( 1-2 56 ) >>10) ; 
:able(i) .bv=l28* U815M i-236 ) »10) ; 
cable (i] .gv»-3 52 • ( i -256 ) »1Q ; 

1 

rccum ( cable ) ; 

) 

typcdef scrucc ( 

long u, v; 
} UV32Tab; 

OSErr UV32Table<long »*tab) 
( 

long •ytab; 
UV32Tab *uvtab> 
inc i ; 
THz saveZone; 

NevPoint erf tab. long*, 512*sixeof ( long) *512 'sizeof tUV32Tat>) ); 
ytab«*tab; 

uvtabe (UV32Tab* )4ytab(312) ; 
for(i.-25€;i<256;i**> ( 
long yyy, sp? 

sp=0xOOOO0Oie4(i<-128?O:i>127?255::U128) ; 
yyy»»p> yyy«-8> 
yyyissp; yyy<<-8; 
yyyi»sp; 

ytab t 0x000001 ff4i]*yyy; 

) 

for<i*-256;i*256;i**) < 
long ru,g\i,bv,gv; 

rusOxffffffft 4 I 1436*i»10); 

gu=0x000001f« 4 (-731*i»10>; 

bvsOxOOOOOlfc 4 (1815'i»10); 

gv=0x000001f« 4 <-352*i»10); 

uvtab(OxO00001FF4i] .u«< <ru«8) lgu)<<8? 
uvtabl0x00000irf4i) .v*(gv«8) Ibv; 

) 

recurolnoErr) ; 

1 

typedef struct { 

short u, v; 
) UVUTab; 

OSErr UV16Table(long -'tab) 

{ 

short •ytabj 
UV16Tab *uvtab? 
inc i; 
THi saveZone; 
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Newpcinccr t - tab. long* , 512 'sizeof i shor: : - 512'sneot rjvi6Tabi ) ; 
ytabrM short **)tab; 
U vtab»iUVl6Tab*)&ytab[512]; 
fort i=-256: i*256;i~0 ( 
long S P ; 

sp.OxOOOOOOletl ii<-129?0:i>127?255:i-1281»3l ; 

yyy = sp: 7YV <<-$■' 
yyy I rsp; yyY <<= 5; 
yyylrap; 

yiab(0x000001f £ti]=yyy; 

forii=-256: i<256;i-+) ( 
long ru,gu.bv,gv; 

ru=0xf f f £f£fe t (1436»i»13); 

gu=0x0000003e 4 <-731'i»13); 

bv=0x0000003e 6 { 1815*i>>l3) ; 

gv.0x0000003e & (-352»i»13); 

uvcablOxOOOOOlFTti] ,u=nru«5> l<ru)<<5: 
uvtab(Ox000001FFii] . v= (gv«5) Ibv; 

) 

recurninoErr ) ; 

) 

♦define overlval) \ . 
i (OxFFOOi ival) ) *» 0)?<char)val:val*0?0.:255 

/• Standard YUV space version •/ 
idefine yuv_rgb32 (pixmap, Yc) \ 

y»CYc**)>>2; \ 

pixel. rgbdl =over<Y*r) ; \ 

pixel.rgb[2]«over(Y<*g); \ 

pixel. xgb[3)=over<Y*b); \ 

* p i^cnap* ♦ = p ixe 1 . pixel ; 



void 
( 



YUV2RGB32(long -pix*ap, short -Yc. short MIC. short -vc. int area, inc wid 



long • p ixjnap2.pixmap*cols. Tow, •enc.pixiwp*axea ; 
short -Yc2=Yowidth; 

while l pi xmap<end) { 
rovcpixmap* width; 
while ipixmap<rovi ( 
Pixel pixel; 
long r,g,b,Y,U.Vi 

Us (•Oc**) >>2; 

V« (*Vc++ ) >>2; 

X = 128*U436*U>>10) ; 

gsl28*(-731*U - 352*V»10); 

b.l28*(1815*V»10); 

yuv_rgb32<pixmap.Yc) ; 
i ruvIrgb32(pix3rap.Yc) ; 
yuvlrgb32 <pix3r*p2 f Yc2 ) ; 
yuv!xgb32(pixsap2,Yc2) ; 

pixmep*»co 1 areola -widen; 
pixmap2 ♦•cola + co Is -width; 
Yoswidth: 
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Yc2**widtb; 

) 

1 

fdecinc rgb32_y>jv tpixjnap. Yd \ 

pixel. PAxelsOxB0808<T*pixmap^: \ 
r=pixel.rgb(ll: \ 
g=pixel.rgbl2) ; \ 

PSSoSrirl.ry ♦ C9«2)- t ^l.(0xrr t g].ry.t.Wl0xrrftfl|.iv * table(OxFF & b 
• Yc** = limit I Y. 16-128.235-128) ; \ 

u*. (r«l) -g -cable [OxFFig] .rv - tablet OxfT&b.bu; \ 
V— <b«l> -g -cable t OxJTir] .rv - table [ OxFFag) .bu; 



void 
{ 



RCB32YUV I RGB_Tab -table, long *pix*ap. short -Yc, short -UC short -vc. int 

long- -pixmapa-pixmap-cola. Tow. -end-pixmap+area ; 
snort •Yc2=Yc*vidth; 

while (pixmep<endi ( 
rov»pixmap-*«idth; 
while (pixTTtap<row> ( 
Pixel pixel; 
long r,g.b.Y f U=0.v.O; 

rgb32_yw<pixmap,Yc) ;*/ 
pixel .pixel*0xe0f08Cr*pixmap**; 
r»pixel. rgb(l) ; 
g»pixel.rgb(21i 

^SSiSSFarl.ry ♦ (g<<2> -cable (OxFF&g) . ry- cable I OxfFtg] .^r cabl 
•Vc** = liaiclV. 16-128. 235-128); 

U— (r«l) -g -table tOxTTfcg.rv - table [OxTF&to .bu; 
vll ib«l) -0 -cabl.(OxFF*r).rv - table lOxJTfcg] .bu; 

rgb3 2_yuv (pixnap , Yc ) ; 
rgb32_yuv <pixra*p2 . Yc2 ) ; 
rgb32_yuv lpixmap2 . Yc2 ) ; 
U»»2; 
V»s2; 

♦UC**»limit (C. 16-128.240-128) ; 
•Vc**«limit (V, 16-128. 240-128) ; 

pixmap**cols+cols -width; 

pixmap2*«cola*cola-width; 

Yc*»widch; 

Yc2*»widthi 



♦define yuv_rgb32x2 (pixmap. Y) \ 
pixel. rgbll]»ov*r(Y*r); \ 
pixel. rgb(2)«ov»r<Y*«); \ 
pixel. rgb[3]=over(Y+b);\ 
pixaaplcolal«pix«l. pixel; \ 
*pixnap+» e pixel .pixel j 

void TUV»n»«2 10*3.1* -piw. ^ -Oc. .hort -vc. 



' long •pi S crap2.pyan«p*:'col». 'row. .end.pi*»»P**««.- 
short •Yc2»Yc*width: 



CHOCTiTirrt nicer int* c w 
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while (pixmapxend) ( 

iong Yold=»Yc>>2. Yold2s # Yc2>>2; 

rowapixmap+widch* 2 ; 

while (pixn\ap< row) { ^ 
Pixel pixel; 
iong r.g.b.Y.U.V; 

U-OxOOFFt (rUc**)>>2) ; 
V=0x00FFi ( <«Vc**)>>2) ; 
r»table[U) .ru; 
g-taJble (U) . gu+ table (V] .gv; 
b-table{V] .bv; 

Y= ( •YC++) >>2 ; 
Yold=(Y*Ycld)»l; 
yuv_rgb32x2 Ipixroap. Yold) ; 

Yold=Y; 

y\j V _rgb32x2(pixn>ap,Yold) ; 

Y» ( •YC** ) >>2 ; 

Yolds(Y*Yold)>>l; 

yu v_r gb3 2x2 < p i xmep , Yo Id ) ; 

YoldsY; 

yuv_rgb32x2 (pixmep, Yold) ; 

Y»(»Yc2**}»2; 
Yold2= (Y*Yold2)>>l; 
yuv_rgb32x2 (pixn*p2 . Yo)d2 ) ; 

Yold2-Y; 

yvv..rgb32x2(pixmap2.Yold2) ; 

Y= ( •YC2**)>>2; 

Yold2» ( Y* Yold2 ) »1 ; 

yu v_rgb3 2 x2 t pixmap2 , Yo ld2 ) ; 

YOld2sY; 

yuv_xgb32x2 (pixmap2. Yold2> ; 

pixmap*=4 "cols -2 •width; 
pixruap2**4»col3-2»width; 
Yc*»width; 
Yc2» -width; 

) 

) 

•define yuv_rgb8 (pixel .Yc, index, dith) \ 
Ys*Yc++; \ 
Y«»3; \ 
Y*» 0x3F00* \ 
Y|a 0; \ 

pixel. rgb(index)»t*ble(YJ .rgbldithj ; 
void YW2RGB8 (Pixel •table.long -pixnap, abort -Yc, short 'Cc, short -Vc. int a 

* long •pi3cnap2»pi3anap*coi$/a / *row, •end*pixmap*eree/4; 
abort *Yc2*Yc+width; 

while ipixjn»p<«nd) ( 
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r ov r p i dt h / 4 ; 

while (pijanep< row) { 

Pixel pixel,- pixe 12 ; 

long Y,U,V; 

U>>=2; 
V» = 6: 

U= (U&CxFO) i (ViOxOF); 

yuv_rgb8 (pixel. Yc, G, 3) ; 
yuv_rgb8 (pixel, yc, l, 0) ; 
yuv_rgb8 (pixel2 . Yc2 . 0. 1 ) ; 
yuv_rgb8(pixel2.Yc2.1.2) ; 

Vs*VC*«r; 

U»«2; 
V»*6; 

U* (UiOxFO). I (VtOxOF); 

yw«rgb8 (pixe 1 , Yc , 2 , 3 ) ; 
yuv_rgb8 (pixel, Yc, 3, 0) ; 
yuv_rgb8<pixel2.Yc2,2,l) ; 
yuv_rgb8 ( pixe 12 . Yc2 .3.2); 

•pixmap* ♦•pixel .pixel; 
•pixmapi pixel2 .pixel ; 

) 

pixmep*« lcols*cols-width) /4: 
pixwp2*s (colB-*cola-widch)/4: 
Yc+«width; 
Yc2*»width; 

) 

) 

#define yuv_rcb6x24pixel , pixe!2 , Y, index, dith, dith2) \ 
. Yt- 0x3F00; \ 
Yl* 0; \ 

pixel. r0btind«x]=t*ble{Y] .r^bldith] ; \ 
pixel2.rybf index) stable (YJ .rgb[dith2J ; 

void YUV2RCB8x2 (Pixel -table, long *pixmap, short *YC short *UC short- •Vc. int 

long •pixmap2spixaap+cols/2. Tow, *«nd«pixTnap+aree/4 ; 
short *Yc2=YCfwidth; 

while (pixroap< end) < 

long Yoldc«YC«3, Yold2 = »Yc2«3 ; 

rovspixmap+width/2 1 
while (pixraajxrow) ( 

Pixel pixel, pix«12. pixel3. pixel4; 

long Y,0,V; 

V«»Vc*+; 
D>>»2; 

Da (DtOxOOFO) I (VlOxOOOF); 
Y.(*Yc^)«3? 



^unrTiTirrr rum /rout *c*> 
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Yold»(Y*TDld)>>l: 

yjv_rg£>8x2 t pixe 1 . pixel2 . Y . 0 . j . : i ; 

YoldsY: 

yuv.rg£>fix2 ( pixe 1 . pixel2 . Y . 1 . C . 2 ) : 
YoldrY; 

Ys(*YC**)<«3; 

YOld= (Y-Yold) >>1; 

y\iv_rgfc8x2 (pixel . pixel2 . Y. 2 . 3.1); 

Yold=Y; 

yw_rgb8x2 (pixel , pixel2 , Y, 3 . 0 , 2 ) ; 
Yold*Y; 

Yr('Yc2«-0<<3; 
Yold2s(Y*Yold2)>>l: 
yuv_rgb8x2(pixel3,pixel4.Y.O. 3. 1) ; 

Yol<J2=.Y; „ % 
Vruv_rgb8x2(pixel3.pixel4. Y. 1, 0,2) ; 

Yold2*Y; 

Y=CYc2-*»«3; 

Yold2*(Y*Yold2)»l: 

y\iv_rgbBx2 (pixe 13, pixel 4. Y, 2. 3. 1) : 

Yold2.Y; 

yuv r9b8x2 (pixe 13 . pixe 14 . Y. 3 . 0. 2 ) ; 
Yold2-Y; 

pixnap (col«/4)*pixel2. pixel; 
•pijanep** "pixel .pixel; 

pixmep2 I cols/ 4 ] *pixel4 .pixel ; 
•pixmap2***pixel3 .pixel : 

pixmap+e (cols+colfl-width) /2; 
pixmep2*s <cols*cols -width) /2 ; 
Yc*=width; 
Yc2*«width; 



} 

^define yuv_rybTESTtpix»l , index, Y) \ 
rgb_col.red=lY*r«B) ; \ 
rgb col.green=(Y+g«8); \ 
rgb_col.blue.(Y*b«B) ; \ ^ 
pixel . rgb( index) =rColor2Index Urgb.col ) ; 

void YUV2RGBTEST<uv32_T*b 'table. long -pixmap. short *Yc, short 'Uc, short *vc. 

* long •piwMp2=pixmap*cols/2. Tow, ••nd.pixjnap*area/4; 
short •Yc2*Yc*width; 

while lpixmap<end) ( 

long Yold=*Yc«3. Yold2.*Yc2«3 ; 

rov3pixm*p*width/2 ; 
while lpixmap<row> ( 

RGBColor rgb.col; 

Pixel pixel, pixel2; 
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long ~ r.g.b.Y.U.V; 

UsOxOOFFi ii *Uc + * ) >>2 ) ; 
V=0x00rF4( (*VC+*)>>2) ; 
r-cabletU] .m; 
g*taJble[U] .gu+table[V) .gv; 
b^cablefVl ,bv; 

Yold=(Y*Yold)»l; 
rgb_col . red» ( Yold+r«8 ) ; 
, rgb.col . gre«n= (Yold*g<<S ) : 
rgb_col . blue* ( Ycld+fcx-ce ) ; 
pixe 1 . rgb ( 0 ] »color2 Index ( ixgb_col ) ; 

Yold»Yr 

yuv.xgbTEST (pixel. 1, Yold) : 

Y=t*Yc++)>>2; 
Yold«(Y*Yold)»l; 
yuv.rgbTEST (pixel, 2. Yold) ; 

YoldaY; 

yuv_xgbTEST (pixel, 3 , Yold) ; 

Y» ( •Yc2 + *)»2; 
Yold2»(Y*Yold2)»l; 
yuv_xgbTEST(pixel2. 0, YoldS) ; 

Ycld2aY; 

yuv.r gbTEST (pixe 12 , 1 , Ycld2 ) ; 

Y«(*Yc2*-M»2: 
Yold2s(Y*Yold2)»l; 
yuv_rgbTXSTtpixel2,2, Yold2) ; 

Yold2aY; 

yuv_rgbTEST(pixel2, 3.Yold2) ; 

pixmap (cols/4 ] =pixel . pixel; 
•pix3Tiap+^»pixel .pixel ; 

pixmap2 [ccls/4]»pixel2. pixel; 
•pixmap2**=pixe 12 .pixel; 

pixmap* • (col a+ccla-width) /2; 
pixmap2*9 (cola+cole-vidth) /2; 
Yc**width: 
Yc2+»vidth; 
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© Copyright 1993 KLICS Limited 
All rights reserved. 

written by: Adrian Lewis 



68030 Colour space conversions 



machine 
seg 

include 



mc69030 
•klics' 
'Traps, a' 



macro 
DPY32x2 

add. 1 
lsr.l 
add. I 
lsr.l 

move.l 
edd.l 
move . 1 
add.l 
move. 1 
add.l 
move. 1 

move. 1 
rob.l 
move. 1 
sub.l 
move. 1 
sub.l 
move. 1 

endm 



LAKGB. trow, toO, iol, tnO, Lnl 



4nO,4oO 
•l,4o0 
4nl.4ol 
#l,4ol 

toO, (4JULCB) 
4row,4AAGB 

400. I4AAGBJ 
4row.4AJbGB 

401, 1 LA KGB ) 
4xov, tAKGB 
tel. (4ARCB)* 

4lU. (4ARGB ) 
txow, 4ARGB 
Lnl, (4ARCB) 
kXOV.tAFCB 
4n0. (4AKGB) 
txow, 4ARGB 
4n0. ( tAKGB 



interpolate first pixel 
interpolate first pixel 



* 


macro 
DFY32 


tAKGB, brow. 4o0. 


tol. 4n0. tnl 




move. X 
add.l 
move. 1 


toO, (4AKGB) 
trow. t A RGB 
4ol. { tAKGB) 






move.l 
sub.l 
move. 1 


tnl. ( tAKGB) 
4rov.4A*GB 
4n0, ( tAKGB ) + 




* 


enefco 








macro 
UV2RGB32 


4AU, 4AV, 4 TAB 




• 


add.l 


#2048, 4TAB 


; move to 




move.w 
lsr.w 


iAU.dl 
t2.dl 

•soirr.di 


; Load U 



ci iDCTin nx cucrr m\ n c m 
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move.l 

movi.w 

Isr.w 
and.w 
add.l 

move . 1 
move* 1 
move . 1 

sub. 1 

endm 



macro 
GETY32 

move. X 
lsr.w 
and.w 
add.l 

swap 
lsr.w 
and.w 
add.l 

endm 



8pos23 
ebitl6 



9p03l6 
QhxtB 



@end 
9nx_rgb 



macro 
OVTR32 

move. 1 

andi.l 

beq.s 

btst • 

beq.s 

btst 

beq.s 

audi . 1 

bra.s 

ori.l 

bt3t 

beq.s 

btst 

beq.s 

andi.w 

bra.s 

ori-w 

btst 

beq.s 

btst 

sea 

andi.l 



endn 



(tTAB.dl.W8) .dO 
tAV.dl 

#2.dl 

•SOlFF.dl 

4(&TAB,dl.V8) ,d0 

dO.dl 
60.62 
d0,d3 

•2048. (TAB 



UV now rg (ui 
Load V 

'JV now rgb 
3 copies 

restore ytab 



tAY, 4TAB, &RGB0 * 4RGB1 

iAY,d4 
#2,d4 

#soirr.d4 

(&TA£»d4 ,w*4 ) , &RGB1 
d4 

«.d4 

*$oirr,d4 

UTAB,d4.w*4>,*RGB0 



RGB1*=YYY 



RGB0*»VYY 



(RGB 

tRCB,d4 

#501010100. d4 

inx^ryb 

#24. d4 

9bitl6 

•23 , LRGB 

«pos23 

•SOOOOff tf.tRCB 
0bitl6 

ISOOffOOOCtFCB 

•16. d4 

9bit6 

•15.4RGB 

«posl6 

*$00ff ,*RGB 

ibitfi 

*Sf fOO.fcRGB 

#8,d4 

fend 

•7,iRCB 

tRGB 

tSOOfefefe.tRGB 



copy pixel 

was it this rgb 

if not then quit 

R overflow? - 

if not then continue 

test sign 

if positive 

underflow sets A to 0 

do next bit 

overflow acts R to 255 

G overflow? 

if not then continue 

test sign 

if positive 

underflow sets G to 0 

do next bit 

overflow sets G to 255 
B overt low? 
if not then continue 
test sign 
under/over flow 
mask RGB ok 



macro 
HASHOUT32 

move. 1 



&AH, U>0, &D1. £02. &D3 
&D0.d4 
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add. 1 


* iDl.d4 




add. 1 


iD2.d4 




add. 1 


fcD3 . d4 




andi . 1 


•$03e3e3e0.d4 


• 


move . 1 


d4. tAH 




endm 






macro 








> Liu tnfl tnt t n2 




move • x 


6D0 d4 




aac. i 






aao. l 


f M JJ 

»LU » 04 




add. I 


4DJ . G4 




andi . 1 


• 50 je je Jeu , u4 




cmp. 1 


(JtH#d4 




endm 




OUT32X2 
• 


FUNC 


EXPORT 


PS 


RECORD 


8 


cable 


DS.L 


1 


pixmap 


DS.L 


1 


V 


DS.L 


1 


u 


DS.L 


1 


V 


DS.L 


1 


width 


DS.L 




height 


DS.L 


1 


rowByte 


DS.L 


1 


pixnap2 


DS.L 


1 




END* 





LS 
Yl 

U_ex 
U_ey 

U_ix 

Y_y 

P-y 

LSize 



RTCORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EOU 

ENDF 



a0 

dO 



O.DECR 

X 

1 

1 

1 

1 

1 



sisoof ( short ) # Yrov 

x end address 

y end addiwsa 

s i z eof I short ) * UVrov 

siieof (short ) w Yrov 

4 # rowBytes-si2«of (long) *Prow 



2»vidth 
tf*0_ix 

u*width*height» 

width 

2 •width 

4 • rovBytes -width 



Y, al 
igbOQ, 



- CJ. a2 - V, *3 - pixmap. a4 - table. a5 - pixmap2 
dl - rgbOl, d2 - rgblO, d3 - rgbll. d4 - spare. d6 - oldO. d7 

; inc, width, f«nd and rovend are loca 
; score registers 



YsYC 

o.uc 

V»VC 

pmspixmap 
tab- table 
pin2 vpixmap2 



link 


a6, #LS. LSiie 


movent. 1 


d4-d7/a3-a5. -(a?) 


move 


SR,dO 


move. 1 


FS.Y(e€),aO 


move.l 


FS.UIaO.al 


roove. 1 


P£.VU6),*2 


move.l 


FS.pixmap(a6) ,43 


move. 1 


FS.table<a€) ,a4 


move. 1 


PS.pixmap2 1*6) ,a5 


move. 1 


FS.vidth<a6),dO 


move. 1 


dO.LS.D_i*<a6) 


move. 1 


PS. height («6) .dl 


mulu . w 


dO,dl 



LOAD width 
SAVE O.ix 
LOAD height 
; width'heiqhc 
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lsr.l 

add.l 

move.l 

add.l 

move.l 

move. 1 

isl.l 

move . 1 

isl.l 

sub. 1 

move.l 


#l.dl 

dl.LS.U_ey{a£) 
dO.dO 

dO,LS.Ylla6) 

dO,LS.Y_yla6) 

«2.d0 

PS. rowByte (a6 ) , dl 

*2,dl 

dO.dl 

dl,LS.P_y(a6) 


r width # height/2 
■ U*widCh*heigtit/2 

• SAVE U_ey 

width*2 

• SAVE Yl 
SAVE Y_y 

-idch*8 
LOAD rowBycea 

rcwBytes"4 

r owBytea • 4 -width * 8 
SAVE P_y 


move . I 

clr.l 
clr.l 


PS. rowByce (a6) ,d5 
d6 

d7 t 


load rowBytes 
clear old2 
clear oldl 


move . 1 
add.l 
move. 1 


LS.U_ix(a6).dO 
al.dO 

dO.LS.U_ex<a6) 


LOAD U_ixB 

P«-U_ixB 
SAVE tLexB 


UV2KGB32 


tall*. (a2)*,a4 


uv2rgb( "0**. *v* + ) 


move . 1 
GETY32 
CTTY32 


LS.Yl(a6),d4 

(a0,d4.1) ,a4,d2.d3 

(aO ) * ♦ a 4 , 00 , ai . 


load Yrow 

add Yb to RGB values 

pUU j # to nus v • a u ww 


move . 1 

or.l 

or.l 

or.l 

andi .1 

bne.s 


d0.d4 
dl . d4 
d2,d4 
d3.d4 

ISOIOIOIOO. d4 
Cover 


it overflow 


HASHOOT32 


( a3 ) ♦ » dO ♦ dl , a3 * dJ 




DPY32x2 
DPY32x2 


a3,d3,d6,d7,d0.d2 
a3 . d5 , do , d2 , dl , d3 




move.l 
move . 1 


di.de ; 

d3,d7 


copy olds 


ctnpa . 1 
blew 


LS.U_ex<a6) ,al 
«do_x 




add.l 
add. 1 


LS.Y_y(a6).aO 




cmpa . 1 
blew 


LS.U_eyla6>,al 
9do_y 




mo van. 1 

unik 

rts 

CVER32 

OVER32 

OVER32 

OVER32 

bra 


(a7}*,d4-d7/a3-a3 ; 
a€ 

dO 
dl 
d2 
d3 
«ok 


restore registers 
remove locals 
return 


ENDFUNC 







OUT32X2D FUMC EXPORT 
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PS 


RXCORD * 


cable 


DS.L 




DS.L 


Y 


DS. L 


y 


DS. L 


v 


DS. L 


width 


DS . L 


height 


DS.L 


rcwByce 


DS .-L 


pi^cnapC 


DS . L 


• 


ENDR 


LS 


K£LUIW 


YX 


DS.L 


U.ex 


DS.L 


U_ey 


DS.L 


U_ix 


DS. L 


Y_y 


DS.L 


P_y 


DS.L 


LSize 


EQU 


• 


Z2JDR 




eO - Y, al 


• 
• 


dO - rgbOO. 




iink 


• 


movent. 1 




move . 1 




move . 1 




move. 1 




move. 1 




move. 1 




move . 1 




move . 1 




move . 1 




move . 1 




mulu. w 




lar.l 




add. 1 




move . 1 




add.l 




move . 1 




move . 1 




lal.a 




move . 1 




lsl.l 




sub. a 




move . 1 




move. 1 




clr.l 




clr.l 


0do_y 


move. 1 




add.l 




move. 1 




W2RGB32 




move. 1 




GETY32 



DECR 



si2ecf (short) *Yrcw 

x end address 

y end address 

sizeof (shore ) # Uvrow 

aiieor (short ) *Yrow 

4TowBytes-sixeof (leng) *Prov 



r 2 'width 
= U*U_ix 

» U+width*height» 

• width 

= 2 'width 

a 4 •rowfiytes-width 



- U. a2 - v. a3 - pixmap. a4 - table. a5 - pixmap2 
dl - rgbOl. d2 - rgblO. d3 - rgbll, d4 - spare. d6 



oldO, <37 



i€ . ILS. LSize 
d4-d"7/?3-a5, - (a?) 

PS,Y<a6),aO 
PS.Ut*6) ,al 
FS.V(a*),a2 
PS.pixmap(a6) .*3 
PS.table(a6) ,a4 
PS.pixmap2 (a£) »a3 

PS. width (a6) ,d0 

dO.LS.U_ix<a6> 

PS. height (a€> ,dl 

dO.dl 

•l-.dl 

al.dl 

dl,LS.U.*y<a6) 
dO.dO 

dO.L5.Yl(a6) 
dO.LS.Y_y(e6) 
• 2,d0 

PS . rowByre (a6) .dl 

*2.dl 

dO.dl 

dl.LS.F_y(a*) 

PS. row&yte ia6) .65 

d€ 

dl 

LS.U_ixta6).dO 
el.dO 

dO,LS.0_e*(a€> 

<al)*, <a2)*.a4 

LS.Yl<a6),d4 
<a0.d4.1) .a4.d2.d3 



inc. width, fend and xowend are loca 
store registers 

Y«YC 

u*uc 
v»vc 

pm=pixmap 
cab- table 
pm2*pixmap2 

LOAD width 
SAVE 0_iX 
LOAD height 

width*height 

vidth*hcight/2- 

U*width*heaght/2 
SAVE U.ey 

width*2 

SAVE Yl 
SAVE Y_y 

widtl:*8 
LOAD rowfeytes 

rovPytes*4 

rovbytea*4-width»e 
savx P_y 

load row Bytes 
clear old2 
clear oldl 

LOAD U_ixB 

P*0.ixB 
SAVE U_exB 

uv2rgbfUV*. *v*+) 
load Yrow 

add Yb to RGB values 
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add Y* co RGB values 





GETY32 


laON. a4.d0.dl 










move.l 


d0.d4 




or.l 


dl,d4 




ox . 1 






or.l 


d3.d4 




ar.di . 1 


•S01010100,d4 




bne . w 


^over* • 


Qok 


HA5HCMP3 2 


(a5)*.d0.dl,d2.d3 




tne . s 


wain 




add.l 


#16, a3 


9 cone 


move.l 


dl . d6 




move.l 


d3,d7 




orpa, 1 


LS.U_ea(a6) .al 




bit .w 


8dc_ x 




add. 1 


rc v vlaj] aO 

■ J i y \ mV 1 • O V 






Lo . * IdD ; f • J 




cxnpa . l 


us .u_ey (at ) » ai 


• 


bit . w 


•oo_y 




mcvea. 1 


<«7)*,d4-d7/a3-a5 




UAlk 


a6 




res 




«diff 


mov«. 1 


d4,-4<a5) 




DPY32x2 


e3,d3,d6,d7,d0.d2 




DPY32X2 


a3,d5.d0,d2,dl,d3 




bra.s 


icont 


«OV4T 


OVER32 


dO 




OVER32 


dl 




OVER32 


d2 




OVER32 


d3 




bra 


•ok 




ENEFUNC 




OUT32 


FUNC EXPORT 


PS 


RECORD 


8 


lable 


DS.L 


1 


pixmap 


DS.L 


1 


Y 


DS.L 


1 


U 


DS.L 


1 


V 


DS.L 


1 


width 


DS.L 


1 


he i Qhc 


DS.L 


1 


rovByte 


DS.L 


1 


paxmap2 


DS.L 


1 


« 


ENDR 




LS 


RECORD 


0, DECR 


Yl 


DS.L 


1 ; ai2«of (short ) 




DS.L 


1 ; x end addxeas 


O.ey 


DS.L 


1 ; y and address 




DS.L 


1 ; siieci (short ) 




DS.L 


1 ; aizeof (short) 




DS.L 


1 ; 2»rowBytea-si 


LSixe 


ECU 


• 



if overflow 



add four pixels 
copy olds 



nitor« registers 
remove locals 
return 



* 2'width 
= D*U_ix 

• U*vidth*beighc» 
» width 

= 2 'width 

a 2*rowBytes-width 



runrTiTiiTT CUCrT /Dl H C OITl 
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« 


aO - Y. al 


- U, a2 • V. a3 - pucnap. 


a4 - cable. a5 - pixin* 




dO - rgbGO. 


dl - rgbOl. d2 - rgblO. 


d3 - rgbll, d4 - spare 




link 


&6 ILS LSne 


: inc. width, tend and 




mti vein . 1 


d4-d7/a3-a5 -Ia7) 


.* score registers 




move - 1 


DC V 1 i£ I >n 


; Y»YC 




move . 1 


DC nii£l a * 


; U=L5c 




fT-OVC . 1 


P5 . v ( at j , a« 


, V = ¥W 




move . 1 


e? «s * — » j « £ \ * \ 

r5 . pDonap i a t j , a j 






move . 1 


PS . table ( a6 ) , a4 


can-cade 




move. 1 


PS .pijciusp2 (a6 ) . aS 


pn2spixmap2 




move . 1 


FS.vidth(*6> .dO 


; LOAD width 




move. 1 


dO,LS.U_ixia6> 


SAVE U_ix 






PS heiaht Ia6 ) . dl 


; load height 




mulu . w 


dO.dl 


width*height 




lsr.l 


*l.dl 


; width*height/2 




mAA \ 
OOu. 1 


ol » UA 


U*widch*height /2 




move . 1 


dl.LS.'O.ey <a6) 


; SAVE u.ey 




aOO. X 


OU • uU 


width* 2 




move . 1 


dO.LS.Yl(a6) 


! SAVE Yl 




move. 1 


dO,LS.Y_y<a$) 


; SAVE Y_y 




add. 1 


00, OU 


vidth*4 




move . 1 


PS.rowByt«(a6) .dl 


; LOAD rovByteS 




add.l 


dl.dl 


rov»yte«*2 




cob. 1 


dO.dl 


rowBytes*2-width*4 




move. 1 


dl.LS.P_y(ati) 


; save P_y 




move. 1 


PS.rovByte<a6) ,d5 


; load rowBytes 




move . 1 


LS . 11 t ao ) # GO 






move . 1 


US . V.iX 1 a© i * a/ 


. LOAD V 1X-B 


add.l 


al,d7 


; F*U_ixB 


<?dc_x 


UV2KCB32 


fai)+. (a2>*,a4 


; uv2rgb<*U+*, *V+*> 




GrTY32 


i » fi j £ l t »a A^ A^ 


add Yb to P.GB values 




GETY32 


ta(H*.a4.dO,dl 


■ add Ya to RGB values 




move . 1 


An AA 






or. I 


dl.d4 - 






or.l 








or . 1 


Ay AA 
OJ .04 






andi.l 


*SO1010I00.d4 


if overflow 




bne . s 


Pover 




HASHOUT32 


(a5)+,d0.dl.d2.d3 






DPY32 


a3.d5.d0.d2,dl.d3 






cmpe. 1 


d7.*l 






blt.v 


«do_x 






add.l 


LS.Y.yUCJ.aO 






add.l 


LS.P^(a6) f a3 






cmpe.l 


LS.U.ey <a6).al 






blc.v 


edo_y 




• 


mo van. 1 


(a7)*.d4-d7/a3-a5 


rastore registers 



cldO, d7 
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unlk 


~ a6 




rts 




? over 


DVER32 


dO 




0VE3O2 


da 




OVTR32 


£2 




OVXR32 


d3 


* 


bra 


•?ok 




ENDFUNC 




OUT32D 
• 


-FUHC 


~_Y PORT 


PS 


RECORD 


8 


table 


DS.L 


1 


pixmap 


DS.L 


1 


Y 


DS.L 


1 


U 


DS.L 


I 


V 


DS.L 


1 


width 


DS.L 


1 


height 


DS.L 


1 


rowByte 


DS.L 


1 


pixntap2 


DS.L 


1 


• 


ENDR 




LS 


RECORD 


O.DECR 


Yl 


DS.L 


1 




DS.L 


1 


u_ey 


DS.L 


1 


U^ix 


DS.L 


1 


Y_y 


DS.L 


1 




DS.L 


1 


LSi2« 


EQO 


* 


• 


ENDR 




• 


aO - Y, 


al - U, e2 



remove locals 
return 



sizeof ( short ) *Yrow 
x end address 
y end address 

sixeof (short J # UVrow 
sizeof (short) *Yrow 
2*rowBytea-sizeof (long) Trow 



= 2*vidth 
= 0*0_ix 

s U*width*height» 

- width 

• 2*vidth 

» 2»rovBytes-width 



dO - rgbOO. di - rgbOl, d2 



piwnap, *4 - table, aS - pixmap2 

rcblO. d3 - rgbll, d4 - spare, d6 - Yrov, d7 



1 ink- 


a6.#LS.LSize 


; inc, width, fend and rowend are Iocs 


mo vem. 1 


d4-d7/a3-a5,-(a7) 


; store registers . 


mov<4 . 1 


PS.Y(»6),aO 


; Y-Yc 


move. 1 


PS.0(a6),al 


; U»Oc 


mcvs . 1 


PS.V<a6).a2 


; v»vc 


move. 1 


PS.pixnjpiafi) ,a3 


; pmspaxnap 


move . 1 


PS. table 1*6) f J4 


; tab»cable 


move . 1 


PS.pixiaap2 (a«) ,a5 


; pm2=pixmap2 


move. 1 


PS.vidth(a«),dO 


• LOAD width 


move. 1 


dO,LS.U_ix(a6) 


SAVE U.ix 


move. 1 


PS. height ia6) ( dl 


LOAD height 


mulu.w 


dO.dl ; 


width*height 


lsr.l 


«l.dl ; 


width*height/2 


add.l 


al,dl 


U*width»height/2 


move.l 


dl.LS.U_ey (*6) 


SAVE D.ey 


add.l 


dO,dQ 


width*2 


move. 1 


dO.LS.YlU5) 


SAVE VI 


move. 1 


dO,LS.Y_y(e«) 


SAVE Y_y 


add.l 


dO,dO 


vidthM 


move. 1 


PS.row0yte(a6) ,dl 


LOAD rowByces 


add.l 


dl.dl 


rowByte»»2 


sub. 1 


dO.dl 


rovBytes • 2 -width* 4 


move. 1 


dl.LS.P_y<a6) 


SAVE P_y 
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move . 1 
move . 1 


^ PS.rovByte(a6) .d! 
LS.Yl(a6) .d6 


; load rewsyces 
; load Yrow 


?do_y 


move . 1 
add. 1 


LS.U_ix(a6) .61 
al.d7 


; LOAD U.ixB 


5do_x 


•JV2RGB32 


(all*. <a2)*,a4 


uv2rgb ( •U**. *v**) 




ft*OV€ . 1 

GETY32 
GETY32 


— o .ill at) ) ■ j4 

Ia0,d6.1) ,a4,d2.d3 
\ a u ) ♦ . a h , ou , a j. 


* loan* Yrow 

; add Yb to RGB values 

aHH Y* to RGB values 




move . 1 

or.l 
or.l 
or.l 
andi . 1 
bne.s 


d0.d4 
dl.d4 
a2,d4 
d3,d4 

f SOlOluluO, d4 
«over 


; if overflow 




HASHCMP32 
bne.s 


taSj * , dO. dl. d2 . d3 
fidiff 






addq 


*8.a3 


; add four pixels 


9conr 


cnpa. 1 
bli.w 

add.l 
add.l 


d7,al 
«do_x 

LS.Y_y (a€) ,a0 
LS.P_yia6).a3 




• 


cmpa. 1 
blew 


LS.O.ey (a6) ,al 
Gdo_y 




fidiff 
Cover 


movem. 1 

unlk 
rts 

move . 1 
DFY32 
bra. s 

OVTJU2 
OVTR32 
OVTR32 
OVER32 
bra 

ENDFUNC 


(a7)*,d4-d7/a3-a5 
a6 

d4, -4 (aS) 

a3,d5.d0.d2.dl.d3 

Scone 

dO 

dl 

d2 

d3 

•ok 


; restore registers 
; rtw)vt locals 
; return 


• 


macro 
UVOV 


&VAL. tOV 




9pos 


move .w 
edd.w 
and.w 
beq.s 

tSt .W 

bge.s 
move.w 
bra.s 
move.w 


&VAL.4GV 
♦S0200.4OV 

tsrcoo,4ov 

Ook 
fcOV 
Opos 

♦soirr.tvja 

Ook 

HSFE00.4VJU, 





Ook 
» 

endm 



runrTinnx cucrr /di « r ">e% 
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UVLIMIT FUNC 


EXPORT 


* fix dO d4 . snare 


dl^^ctt 


uvov 


dO ... dl 


swap 


dO 


uvov 




swap 


dO 


uvov 


d4.dl 


swap 


d4 


LVOV 


d4,dl 


9wap 


d4 


res 

* 




ENDFUNC 




macro 




UVOVER 

• 


&U. 4V 


move . 1 


#$02000200, dl 


move . 1 


dl.d2 


add.l 


iU.dl 


add.l 


&v,d2 


or.l 


d2,dl 


andi . 1 


#SFCO0FCO0,dl 


beq. s 


euvok 


bar 


UVXIMIT 



euvok 



endm 




macro 
GETUV 


iAU, LAV, iSV t £UV 


move . 1 

move . 1 

UVOVER 

lar.l 

andi . 1 

andi . 1 

or.l 

swap 


(tAU)+,ASP 
<iAV)*,40V 
ASP. 40V 
tS.tUV 

#S03e003eG,ASP 
• S001F001F, AUV 
ASF, 40V 
40V 


endm 




macro 
GETY 


AAY. 4 DID. 4UV, 4R0, AR1 


move . 1 
lsl.l 
andi . 1 
or.w 
move. 1 
swap 
or.w 
move . 1 


AAY.4R1 
#5,AR1 

#SFCO0FC00, AR1 
4UV.4A1 

(AIND.4R1 ,w*41,4R0 
AR1 

4UV. ARl 

(AIOT.ARl ,v*4),4Rl 


endm 




macro 
UV8 


AAU. AAV, ASP, &UV 


move. 1 
move. 1 
UVOVER 


lAAUN.ASP 
<AAV) + ,AOV 
4SF.4UV 



0V**5OOUVOOUV 



(2+) Y=Y0Y1 
(4) Y«YOXXYlXX 

(2) Y=Y1UV 

(2*) R0=0123 (YD 

(4) Y=YOXX 

<2) Y*YODV 

(2*) Rl-0123 (YO) 



ci jdctiti nx cucrr /oi w c 
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lsr.l 
lsr.l 
ar-ci . - 
andi . J 
or.l 
swap 



«2.4SF 

tSOOFOOOFO.&SP 
*$CO0F0OOF.&UV 



UVrrSOCUVOOLTV 



macro 

y?.:nd 

move . 1 

move . b 
andi • w 
move . 1 
swap 
move . b 
andi . w 
move.l 



tY.lIND.iUV.iDO.UU 

iY, 4 DO 
*3, fcDC 

tuv.&uo 

IS3FFF.&D0 
UlND.iDO .W4),4D1 
iDO 

tUV.iDO 
#S3F7F.4D0 
UIHD.iDO .W4),&DO 



dCUYOYl 

dO=YOXXYlXX 

dO-YOXXYlUV 

dO=0YUV(l) 

find clut entries 

dO-YOXX 

dO=YOUV 

dOxOYUV(O) 

find clue entries 



endnt 



OUT8 
PS 

table 

pixmap 
Y 

a 
v 

width 
height 



FUNC 

RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 



rowByte DS.L 
pixmap2 DS.L 
ENDR 



EXPORT 

8 

1 
1 
1 
1 
1 
1 
1 
1 
1 



LS 
Yl 

U_ex 
U_«y 
U_ix 
Y_y 

P-y 

LSire 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

SOU 

iNDR 

a 0 - Y . al 
dO - rgbOO. 

link 
mcvem. 1 

move . 1 
move . 1 
move . 1 
move. 1 
move . 1 
adda. 1 
move . 1 

move . : 



DECK 



siaeof ( short ) »Yrow 

x end address 

y end address 

siaeef 1 short ) ♦tJVrov 

siieof I short ) *Yrow 

WowBytes-sixeof (long) 'Prow 



2*vadth 
U+U_ix 

U*width*height>> 

width 

2*width 

2*rovBytes-vidch 



- U. a2 - V, a3 - pixmap, a4 - tabic 
dl - rgbOi, d2 - rgblO.. d3 - rgbll. 



, a 3 - pixra&p2 
d4 - spare, d6 



oldO, d7 



a6, #L£.LSilC 
d4-d7/a3-e5.-<a7) 

PS.Yia6).aO 
PS.C(a6),al 
PS. V(a6) ,a2 
PS.pixnap<a6) ,«3 
PS.ta±rte<a6) .a4 
#$00020000, a4 
PS.pixmapS (a6) ,a5 

p$. width ra6) .dO 



inc. width, fend and rovend are loca 
store registers 

YsYC 
UsUC 
V=VC 

pax pixmap 
testable 
tcb*s32768 (longs) 
pm2 »F ixmep2 

LOAD width 



n,,«wnirr rurrr /Dill C *5C\ 
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*do_y 
8do_x 



move . 1 
move . 1 

mulu.w 
Xsr.l 
add.l 
move. 1 
rrove. 1 
add.l 
eub. 1 
rnove . 1 
add.l 
rove. 1 
trove. 1 

move. 1 
move. 1 

move, i 
add.l 

crruv 

GETY 
GETY 

move.w 
lsl.l 

3V»p 

lsl.l 

svap 

GETY 
move. w 
lar.l 
move.v 
GETY 
move. w 
evap 
lsr.l 
move, w 

move. 1 
move . 1 

CTTp* . 1 

blew 

add.l 
add.l 

CIBp* . 1 

blt.v 

mcvem. 1 

unlk 

rtJ 

EKUf UNC 



dO.LS.U_ix(a6) 

PS. height <a6) ,dl 

dO.dl. 

#l.dl 

al.dl 

dl.LS.U_ey(a6> 

PS.rovBy'etaSJ.dl 

dl.dl 

dO,dl 

dl.LS.P_yia6) 
dO,dO 

dCLS.Yl (a6) 
dO,LS.Y_y<a6> 

FS.rovByte (a6) ,d5 
LS.Yl(a6),d6 

LS.U_i*(a€) ,d7 
al.d7 

al,a2,d0,d4 

(a0.d6.w).a4,d4,d2.d3 
iaOU.a4.d4.dO,dl 

d3,d2 
«8,d2 
dO.dl 
dl 

#8 , dl 
d4 

(a0,d6.1) .a4,d4,d0.d3 
d3.d0 

♦e.do 

d0,d2 

<a0)*,a4,d4.d0,d3 
d0.d3 
d3 

#8,d3 
d3.dl . 

d2,(a3,d5) 
dl, laJ)* 

d7,al 
9do_x 

LS.Y_y(e6).aO 
LS.P_y<a6) ,a3 

LS.U_ey(a6) ,al 
8do_y 

(*7)*,d4-d7/*3-a5 
a6 

j return 



SAVE U_ix 

LOAD height 
vidth'height 
vidth - height/2 
U*vidth»height/2 

SAVE U.ey 

LOAD rowBytea 
rovBvtes , 2 
rcvBytes*2 -width 

SAVE P_y 
width*2 

SAVE Yl 
SAVE Y_y 

load rowBytea 
load Yrow 

LOAD U_ixB 
P*U_ixB 



d2rX0XX. d3=XXlX 
dO-XXXO, dl»lXXX 

d2=X01X 
d2«01« 
dl.lXXO 
dl-XOIX 
dl-OlXX 

ne*t UV 

d0rX2XX, d3=XX3X 
dO.X23X 
dO»XX23 
d2»0123- 

d0sXXX3, d30XXX 

d3-3XX2 

d3=X23X 

d3=KX23 

dl*C123 



restore registers 
remove locals 



macro 
Y8x2 



fcAy,fcINI>, *OV, told 



ciiocTiTirrr cucct /dim c *»c\ 
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move . 1 
lsl.l 
swap 
add.w 
lsr. w 
move . b 
andi . w 
move . i 
move . w 
move . b 
andi . w 
move . 1 
move . w 
move . v 
move . w 
swap 
lsl.l 
lsl.l 
swap 
add.w 
lsr .w 
move . b 
andi .v 
move . 1 
move . w 
move . b 
andi . w 
move . 1 
move .w 
move.w 
move . w 
swap 
lsr.l 
lsr.l 
move . w 
move. w 



tAY.dO. 

O.dO 
dO 

dC&old 

•l.told 

&UV,told 

•s:FFP. told 

(ilND.icld .v*4).dl 

dO.told 

tuv,d0 

•s3rrr,d0 

(tIND.dO.v4) ,d2 

dl.d3 

d2.dl 

d3.d2 

62 

*8,dl 
#8,d2 
dO 

dO.told 

#l.told 

tUV. told 

•S3FFF. told 

ttlKD.told .V4) ,d3 

dO. told 

tUV.dO 

•S3rrr,d0 

(iIHD.dO.V4) .dD 

dO.dl 

d3,d0 

dl.d3 

dO 

#8.d0 
#8.d3 
d0.d2 
d3.dl 



i2») Y=Y0Y1 

(4) Y»Y0XXY1XX 

(4) Y = Y1XXY0XX 

(2) old-old«-Y0 

(4) old=(old^Y0)/2 

(2) old=YlOUV 

(41 old=0YUV(I0) 

(2t) dl=XlX3 

(2) old»Y0 

(2) Y=Y0OV 

(4) Y=0YUV(0> 

(2*) d2»0X2X 

(2) exg.w dl.d2 

(2) dl=X12X 

(2) d2=0XX3 

(4) d2=X30X 

<4) dlel2XX 

(4) d2r30XX 

14) YsYlXX 

(2) old*old+Yl 

(41 oldslold-YD/2 

(2) old=YIlUV 

(4) oldaOYUVtll) 

(2*) d3*XlX3 

(2) olds'il 

(2) YsYOOV 

(4) Y»0YUV(0) 

(2*) dO«0X2X 

(2) exg.w d0.d3 

(2) i10»OXX3 

(2) d3-X!2X 

f4) dO»X30X 

(4) dO»XX30 

<4) d3«X12X 

(2) d2-3030 (YiYOYiYl) (1) 
(2) (11^3121 (YiYOYiYl) (2) 



endro 

macro 

Y8x2a 

GETY 
move . 1 
lsl.l 
move . b 
andi . w 
move. 1 
swap 
move . b 
andi .w 
move. 1 
move. v 
move . w 
move . w 
swap 

endm 



fcAY.4IND t &UV 

tAY.iTND.4UV.dl.d2 

t>Y.d2 

• 3,d2 

tUV.d2 

#S3FFF.d2 

(tIKD.d2.W4) .dl 

d2 

tOV.d2 

#$3FFF,d2 

<&IND,d2.w*4) ,d2 

dl.dO 

d2.dl 

d0,d2 

dl 



(2*1 Y=Y0Y1 

(4) YsYOXXYlXX 

(2i Y=Y1UV 

(4) Y-OYW(Yl) 

(2*) dl»0l23 (YD 

(4) YsfOXX 

(2) Y-YOUV 

(4) Y=0YUV(Y0) 

(24) d2»0123 (Y0) 

(2) exg.w d2,dl 

(2) dl-0123 (Y1Y0) 

(2j d2*0123 (Y0Y1) 

(4) dls2301 (Y0Y1) 



macro 
Y8x2b 

GETY 



ttAY , t INP, tUV 
4AY.tIND.tUV.dl,d2 



**. t^rr rni M r 
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move . X 








• (2* 
i * ♦ 




LSI . 1 


4 ^ jo 

* J , <xi 






f A \ 


v • vnv w 1 vv 


nove.b 


tUV,d2 






. (2) 


Y=Y1UV 


andi. v 


•S3FFF.d2 






* (4) 


Y=0YUV(Y1) 


move . 1 


* t TVJT1 A*) i_j • 




A 1 




1 dl»0123 /Yl) 


swap 


d2 






• (4) 


y=yoxx 


nove . b 


5UV.d2 






■ (2) 


Y=Y0UV 


andi . w 


*S3FFF.d2 






* (4) 


Y=0YUV(YU> 


move. 1 


(&IND.d2.W 


4) 


.d2 


(2* 


d2=0123 (YO) 


ror. 1 


*8.d2 






(6) 


d2*3012 (YO) 


ror .1 


«8,dl 






(6) 


dlr3012 (YD 


move .w 


dl.dO 






(2) 


exg. v d2 . dl 


move . v 


d2.dl 






(2) 


dl=3012 (Y1Y0) 


mcve . v 


d0.d2 






(2) 


d2»3012 (Y0Y1) 


swap 


dl 






(4) 


dl=1230 (Y0Y1) 


ror .w 


• S.dl 






(6) 


dl-1203 (Y0Y1) 


endra 













OUT8x2 


FUNC 


EXPORT 


?S 


RECORD 


e 


table 


DS.L 


i 


pixmap 


DS.L 


i 


Y 


DS.L 


i 


U 


DS.L 


i 


V 


DS.L 


i . 


width 


DS.L 


i 


height 


DS.L 


l 


row Byte 


DS.L 


i 


pixmap2 


DS.L 


i 


4 


ENDR 




LS 


RECORD 


O.DECR 


Yl 


DS.L 


1 


U_€X 


DS.L 


1 


U.ey 


DS.L 


1 


U_ix 


DS.L 


1 


Y-y 


DS.L 


1 




DS.L 


1 


LSize 


EOU 


* 









sizeof ( short ) *Yrov 
x end address 
y end address 
ai2«o£ (short) •CVrov 
si2eof ( short ) *Yrow 
4*rowBytes-sizeof (long ) *Frow 



2* width 
t>U_ix 

U+width*height>> 

width 

2 "width 

4 # rowByt»»-width 



aO - Y. al - U, a2 - V, a3 - pixmap. a4 * cable. a5 - pixmap2 
dO - rgbOO, dl - igbOl, d2 - rgblO. d3 - rgbli, d4 - .-.pare, dS 



oldO, d7 



link 


a€ , »LS .LSiie 


movem. 1 


d4-d7/a3-a5,-<a7] 


move. 1 


FS.Y(a6) .aO 


move. 1 


FS.OUO.al 


move, 1 


FS.V(a6),a2 


move. 1 


FS.pixmap (a6) . a3 


move. 1 


PS.table(e6).a4 


adda.l 


#$00020000, »4 


move . 1 


FS.pixaap2 (a6) ,a5 


move.l 


PS,width(a6),dO 


move.l 


dD.LS.U_ix(a«) 


move.l 


PS. height (a6) ,dl 


nxulu.w 


dO.dl 


lsr.l 


#l.dl 



; inc. width, fend and rovend are loca 
; store registers 

YaYC 
U*Oc 

v-vc 

pmspixnap 
tab» table 

tab+*32768 (longs) 
pm2»pixmap2 

LOAD width 
SAVE C_ix 
LOAD height 

width'height 

width*height/2 



WO 94/233*5 



PCT/GB94/006T7 



- 746 - 

Engineering : Kl icsCcde:CompPict : Colour .d 



U»widcfc*height/2 
SAVE U.ey 

width*2 
SAVE Yl 
SAVE Y_y 
LCAD rcvBytes 

row Bytes *2 

rowBytes*4 

rovBytea*4-width«2 
SAVE P_y 

load rcwByces 



LOAD U_ixB 

P*U_ixB 
SAVE U.exB 

dlsOOWOOUV (10) 

calc d2,dl pixels 



load Yrov 

calc d2.dl pixels 



next UV 
next Ya 

load Yrov 

calc d2,dl pixels 



add . 1 


al.dl 


move . 1 


^l.LS.U_eyla6) 


add.l 


dO.dO 


move . 1 


AO LS Yl * a£ \ 


neve - 1 


uu, i>>d . i y i #c i 


mcve . 1 


PS.rovByte(a6) .dl ' 


add.l 


dl,dl 


add . I 


dl.dl 


sub . I 


dO.dl 


rr.ove . 1 


dl . LS . P_y t a6 ) 


move . 1 


PS . xowByte (a6) . d5 


cir.l 


d6 




d7 


move . 1 


L£.U_i_x(a6) ,d0 


add.l 


al.dO 


move • 1 


d0, LS.U_exta6) 


GETUV 


al aO HQ AA 


Y6x2a 


Ia0>,a4.d4;.d6 


move . 1 


ox , \ a j ? 


add. 1 


d5,a3 


move . 1 


dl. Ia3) 


add. 1 


dS,*3 


move • 1 


LS.Y1 (a6) ,d0 


Y8x2b 


<a0.d0.w|,a4,d4;,d7 


move . 1 


d2, (eJl 




d5.*3 


move ■ 1 


dl. (a3)+ 


swap 


d4 


acdq.l 


• 4,a0 


move . 1 


LS.Yl la«) .d0 


Yfix2b 


(aO , dO. w) . a4 , d4 ; . al 


move . i 


dl. <a3) 


aub.l 


d5.a3 


move . 1 


d2. (a3» 


sub. 1 


d5.a3 


Y8x2a 


ia0)* , a 4 . d4; , d6 


move . 1 


dl. <a3) 


sub. 1 


dS.a3 


move . 1 


d2. <a3)* 


cmpa. 1 


LS.U_exl*6) ,al 


blew 


fido.x 


add.l 


LS.Y_y(a6) ,a0 


add.l 


LS.P_y(a«) .a3 


crop a . 1 


LS.U._ey<e6),4l 


blew 


»do-y 


movem. 1 


<a7)*.d4-d7/a3-a5 


unlk 


a€ 


rts 


; return 


ENDFUNC 





; rticon registers 

; remove locals 



simsriTirrF rhfft /rib f 
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nacro 

RGB2Y ^ iRGB.iY.4U.4V. LAY 



move . 1 


tRCB. d2 


; pixel s^pixroap 


ecri . 1 


t$808080, d2 


; pixel~=Ox8O8080 


clr . w 


dl 


; B*0 


move . b 


d2,dl 


; E=pixel[3] 


rr.ove . 1 


4 !a4.dl.w*8),d0 


; dO=by,bu 


sub. w 


dO.&U 


; U-=bu 


swap 


dO 


; dOabu.by 


mov« . w 


dO, 4Y 


; Y=by 


ext > w 


dl 


; ( short ) B 


ouu « W 


dl.dl 


; B*>2 


add. w 


* V V 


• V*»B<<1 


lsr, 1 


• o , a2 


; pixel>>»6 


clr . w 


CJ. 


flm ft 


move , b 


Cll . Ql 


, o>pixei I J J. 


move . 1 


i a 4 , CI . w* 8 ) , Ow 


; Gu*yry#yv 


sub- w 




; U *gv 


swap 


dO 


; dO»gv,gry 


sub. v 


dO.&Y 


; Y-*gry 


move . 1 


4 <a4,dl.v8> ,d0 


• dO=gby,gu 


sub. w 


dO,4V 


; v-=gv 


swap 


, dO 


; dOsgu»gby 


sub.v 


dO,4Y 


• Y-.gby 


ext .w 


dl 


• I short )C 


sub. w 


dl.fcU 




sub.v 


dl,4V j 


V-.g 


lsl.v 


12. dl ; 


G«»2 


add.v 


dl.4Y ; 


Y*»B«1 


lsr.l 


• 8.d2 


pixel>>*8 


move. 1 


(a4d2.v'8) f d0 


dO»ry , rv 


sub.v 


dO,4V 


V--JTV 


swap 


dO 


dCUrv. ry 


add.v 


dO . 4Y 


Y+»ry 


<Jtt .W 


d2 


( short )R 


odd.w 


62.62 


ft**2 


add.v 


62 . 40 


U+»R«2 


cirpi .w 


•SFE40,tY 


Y»-44fl 


bge.s 


«ok 


if greater 


move . w 


*$FE40,4Y 


Ys -448 


bra . s 


e«nd 


save 


crapi .w 


*$01C0,4Y 


Y< 448 


bit. a 


eend 


if l*se 


mow . w 


•S01C0.4Y 


Ys 4<3 


move . w 


tY, 4AY 


Save Y 



endzn 



IN32 FUNC EXPORT 

PS RECORD 8 

cable DS.L 1 

plxinAp DS.L 1 

Y DS.L 1 
U DS.L 1 

V DS.L 1 
width DS.L 1 
height DS.L 1 
rcvByte DS.L 1 

ENDF 

LS RECORD O.DECR 



cnncTiTinr ewerr mm p on 
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ILex 
T J_ey 
"J. : x 
v_y 

P_y 

IS LIB 



9do_x 



DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EOU 

D!DR 



sues: I shore J * Yrow 

x end address 

y end address 

t neof ( shore ) *UVrcv 

sizeof (shore / *Yrow 

2 • rowBytes-suecf f long) 'Prow 



2*vidth 

U«vidth*height>> 

width 

2'vidth 

2 'rcvBytes -width 



aO - Y, al - U. a2 - v. a3 
dO - rcbOO, eU - rgbOl. d2 



pixrLap, a4 - cable, a5 - pixmap2 

rgblO, d3 - rgbll. d4 - spare. d6 - oldO. d7 



9 okU 



1 ink 






; inc . width 


fend and 


movem. 1 


d4-d7/a3-ai,-(a7) 




; store registers 


movt . 1 


P5 . Y ( ao ) , au 




; Y=YC 




move . 1 


PS. 0( a6) , al 




; U»Uc 




move . 1 


PS. Vla6) .a2 




; V=VC 




move . 1 


PS.pixmep<a6) . a3 




; pmapixmap 




move . 1 


PS. cable { a6) , a4 




; cab= cable 




move . 1 


PS.width(a6).dO 




; LOAD wid^.h 




move . 1 


dO.LS.U_ix(a6) 




r SAVE U_ix 




move . 1 


PS. height <a5) ,dl 




; LOAD height 




mulu.w 


dO.dl 




; width'neiffht 


1 SX > X 


• l.dl 




• width*heioht/2 


add.l 


ai.dl 




■ u*widcb # heigbt/2 


move . 1 


di.LS.U_ey(a6) 




SAVE V_ey 




aoa. i 


dO.dO 




wid;h*2 




move. 1 


dO.LS.Yl ta«) 




SAVE Yl 




move. 1 


dO, LS.Y_yla6» 


i 


SAVE Y_y 




add.l 


dO.dO 




width*4 




move.l 


PS. rovByte (a6 ) ,dl 




LOAD rowfiytes 


add.l 


dl.dl 




rowByt€3*2 




sub.l 


dO.dl 


i 


rovBytea*2 


-width # 4 


move, 1 


oU # LS.P_yia6r ' 




SAVE P_y 




move;. 1 


PS.rov*yte<a6) f d7 




load rowBytea 


move. 1 


L£.Yl(a6).d6 




load Yl 




move . 1 


LS.U_lxle6J.dO 




LOAD U.ixB 




add. 1 


al.dO 




P*U_ixB 




move . 1 


dO.LS.U_exia6) 




SAVE O.exB 




clr.v 


d4 




U»0 




clr .v 


d3 




VcO 




RGB2Y 


(a3,d7.w) .d3,d4.d5, Ia0,d6.v) ; Convert 


pixel 


RGB2Y 


<a3)*.d3,d4.d5. <a0>* 




; Convert 


pixel 


KG32Y 


<a3,d7.v) .d3.d4.d5, Ia0,d€.w) ; Convert 


pixel 


RCB2Y 


U3)*.d3,d4,d5, <a0> + 




; Convert 


pixel 


asr .v 


«2.d4 




D»*2 




asr .w 


#2,d5 




v>>»2 




capi.w 


•SFE40,d4 




U>*-446 




bge.s 


«okU 


t 


it greater 




move .w 


t$7Z40.di 




U« -446 




tra.» 


«doV 




save 




cropi.w 


»S01C0.d4 


i 


U< 448 




blt.» 


«doV 




if less 




move . w 


#S01CO.d4 




Us 448 
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3doV 



3o*v 



5 end 



PS 

cable 
piwnap 

y 

U 
V 





^ *SFE4 0,d5 


bge . s 


8oJcV 


move, w 


•$FZ40.d5 


bra . a 


Gend 






bit .a 


Send 


move - v 


•soico.d: 


nove , w 


d4. (al)4 


move . w 


d5. (a2)* 


cinpa • X 


T C T1 »-s/ / jh£ ) ji 1 
LdiU.tXIfiOJifll 


blt.w 


8do_x 


add.l 


LS.Y_y<a6) ,a0 


add.l 


LS.P_y<a6) ,a3 


crap a . 1 


LS.U_ey(a6) ,al 


bit . w 


€do_v 


i ni_> v wiu a ^ 


la/ | * i Ul U ' r OJ 




a v 


Xt 3 


re cum 


ENDFUNC 




macro 




W16 


tAO. 4AV, fcSP, 4UV 


move. 1 


(txau.tsp 


move. 1 


(4AVN.40V 


UVOVER 


tSP, 4C7V 


lsr.l 


*5,iUV 


andi.l 


#$03e003eO. *SP 


andi. 1 


•sooirooir, auv 


or.l 




swap 




endm 




macro 




Y16x2 


&AY, &IND, 4UV 


move . 1 


tAY,d2 


lsl.1 


■3.02 


andi . 1 


*SFC0OFC0O f d2 


or .w 


iUV. d2 


move . 1 


( & IND. d2 . w*4J . dl 


svep 


d2 


or . v 


tW, d2 


move • 1 


/ £ TVTT4 A*) t-r* J 1 


end™ 




FUNC 


EXPORT 


RECORD 


8 


DS.X* 


1 


DS.L 


1 


DS.L 


1 


OS.L 


1 


DS.L 


1 



V>s-448 
if greater 
V= -448 

save 
V< 4 48 
if less 
V= 448 

Save U 
Save V 



restore registers 
remove locals 



; UV«*00OV00UV 



; (2*) Y^YOYl 

; 14) YcfOXXYlXX 

; 12) Y.Y1UV 

; <2*) dl=0123 (YD 

; <4) Y-YOXX 

I (2) Y»YOUV 

; (2*) d2*0123 (YO) 
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C 




width 


DS . L 


r 










height 


DS.L 


i 










revByte 


DS.L 


i 










pixMpI 


DS.L 


i 












£NDR 












LS 


FXCCRD 


0 . DECR 










Yl 


DS .L 


-1 ; sizeof (short ) *Yrow = 


2 • width 




U.ex 


DS . L 


1 ; x end 


address = 


U»U_ix 




u_ey 


DS . L 


1 ; y end 


address * 


U*width*heighc>> 


r J_ix 


DS.L 


I ; sizeof (short) *UVrov = 


width 




Y_y 


DS . L 


1 ; sizeof (snort) *Yrow = 


2'width 




p.y 


DS.L 


I ; 4 •rov&ytea-sixeoi (leng) • Prow s 


4 • rovBytea -width 


LSize 


ECU 












• 


END* 












- 


aO - Y. ax 


- U. a2 - V, a3 - 


pixmap, a4 - table. a5 - pixmap2 




* 
• 


dO - rgbOO. 


dl - rgbOl. £2 - 


rgblO, d3 - rgbll. d4 - spare 


. d6 - oldO, 


d7 




link 


a€ . ILS LSi2e 




; inCf width t fend and 




1 oca 


• 




d4-d7/a3-a5,-(a7) 




; store registers 








move . 1 


PS.Y(a6),aO 




; Y=Yc 








rnovc . 1 


DC f T t * X 1 a 1 

rd . u ( ac / , ai 




; U»Uc 








move . 1 


PS.Via6) .a2 




; V=Vc 








move . X 


FS.pixmap(a6) ,a3 




; pm=pixmap 








move • 1 


PS. table (a6),a4 




; tab* table 








dOofl . i. 


#$00020000, «< 




; tab**32768 (longs) 








move. 1 


PS.pixmap2(a6),a5 




; pm2»pixm*p2 








movi . X 


PS. width te6).d0 




; LOAD width 








move . 1 


d0,LS.U_i*(a€> 




; SAVt U_ix 








move . 1 


PS. height (a6).dl 




; LOAD height 








mulu . w 


d0,dl 




vidtb'height 








1st . X 


#l,dl 




; width"height/2 








add.l 


al,6U 




; U*width»height/2 








move. 1 


dl.LS.U_ey(a6) 




; SAVt 0_ey 








a ad . x 


dO.dO 




; width*2 








move . 1 


d0,LS.YlU6> 




SAVE Yl 








move . 1 


d0,LS.Y_y<a6) 




; SAVE Y_y 








add.l 


d0,d0 




; width # 4 








move . 1 


PS. rowBytet a€) , dl 




; LOAD rowBytes 








add. X 


dl.dl 




; rowBytes* 2 








add.! 


dl.dl 




rowPytcs m 4 








sub.l 


dO.dl 




rowBytes*«-width - 4 








move . X 


dl.L£.P_y(a6) 




; SAVE F_y 








move . 1 


P£ . rowBytela6) . d5 




; load rovBytea 








car • i 


d6 












cxr.i 


d7 










Q y 


move 1 


LS.U.ijcta«) ,d0 




; LOAD U_ixB 






add. 1 


al.dO 




; P*U_ixB 








move . 1 


d0.LS.O_ex(a€) 




; SAVE O.exB 






3do_x 


CETUV 


el,a2,d0,d4 




; d4«00LTVOOUV (1CJ 








GETY 


(a0),a4.d4,dl.d2 




; calc d2,dl pixel 








move.l 


d2, <«3)* 












move.l 


dl, («3) 












add.l 


d5,*3 












swap 


dl 












move . 1 


dl. <a3) 
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swap d&> 

.r.ove.) d2, -(a3) 

add. 1 d5.a3 

rr.ove.1 L£.Ylu6),dO ; load Yrow 

GETY (aO.dO.vj.a4.d4.dl.d2 ; calc d2.dl pixels 

move .1 d2 . t a 3 ) * 

movc.l dl. <a3> 

add.l d5,a3 

swap dl 

move. 1 dl , (a3 ) 

swap d2 

rnove.l d2,-<a3) 

swap d4 ; next UV 

addq.l M,aO ; next Ys 

add.l #12. a3 

move.l LS.Yl<a6),dO ; load Yrow 

GETY (aO.dO.w) ,a4.d4.dl.d2 ; calc d2,dl pixels 

move. 1 dl. (a3) 

move.l d2,-(a3) 

sub.l d5.a3 

swap d2 

move .1 d2 , ( a3 ) ♦ 

swap dl 

move. 1 dl. (a3) 

sub.l d3,a3 

GETY (aOU.a4.d4.dl.d2 

move .1 dl * < a3 ) 

move.l d2,-(a3) 

swap d2 

sub.l d5,a3 

novel d2. (a3 )* 

swap dl 

move .1 dl . ( a3 > + 

cnpa.l L£.*J_ex (a6) , al 

blew Qdo.x 

add.l LS.Y_y ta6) .aO 

add.l LS.P_y Ia6),a3 

cmpa.l LS.U_«y la6) ,ai 

bit .w 9do_y 

movem. 1 <a7 ) ♦ , d4-dVa3 -a5 ; restore registers 

unlk a6 ; remove locals 

rts ; return 

ENDFUNC 



macro 

Y16 iAY,fcIND,*UV 

move.l tAY.d2 ; (2*1 Y.Y0Y1 

lsl.1 tS.dl ; l<) Y=Y0XXY1XX 

andi.l t$FC00FC00,d2 

or.w tUV.d2 ; (2) Y.Y1UV 

move.l UIND.d2.v*4).Cll ; (2*) dl»Yl 

swap d2 ; (4) YaYOXX 

er.v 4UV,d2 : (2) Y=Y0UV 



si mcTiTi nr cucrr /mn c o*\ 
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move. 1 


( & IND . d2 


.W4).d2 ; (2-1 d2:Y0 








move . w 


dl . d2 


; l2i d2^Y0Yl 








endia 










CUT 1 6 
• 


FVNC 


EXPORT 








?S 


T.ECOF.D 


8 








carle 


DS.L 


1 








pixmap 


DS.L 


1 








Y 


DS.L 


1 








y 


DS.L 


1 








V 


DS.L 


1 








width 


DS.L 


1 








height 


DS.L 










rowByte 


DS.L 


1 








pixmap2 


DS.L 


1 










ENDR 










LS 


RECORD 


0 , DECK 








Yl 


DS.L 


1 


i sixeof (shore ) *Yrow 




2 -width 


U.ex 


DS.L 


1 


; x end address 


. s 


U<rU_ix 


U_ey 


DS.L 


1 


; y end address 


• 


U+width*height>> 


U_ix 


DS.L 


1 


; sizeof (short ) *UVr&w 


■ 


width 


YJ' 


DS.L 


1 


; siteof (short ) *Yrow 




2* width 


?_v 


DS.L 


1 


; 2*rovByt«s*sizeof i long) •Prow 


m 


2*rowfiytes-vidth 


LSizt 


sou 


• 










ENDR 











aO - Y, al - U, a2 - V, a3 - pixmap, a4 - table, a5 - pixroap2 

dO - rgbOO. dl - rgbOl, d2 - rgblO, d3 - rgbil. d4 - spaxe. d6 - oldO. d7 



link 


a6, #LS.L£i2« 


; inc, width, fend and 


movem. 1 


d4-d7/a3-a5.-fa7) 


; store registers 


move . 1 


PS.Y (a6) ,a0 


; Y=Yc 


move . 1 


PS.O(a6) ,al 


; UsUc 


move. 1 


PS.V<a6) , a2 


; V.VC 


move . 1 


PS. pi xmap(e6) ,e3 


; pm= p i xnap 


move. 1 


PS. cable <a6) ,a4 


; t aba table 


adda .1 


iS00020000.a4 


; tab**32766 (longs) 


move . 1 


PS. pixmap2 (a6) ,a3 


; pm2spixmap2 


move . 1 


PS.width(a6) ,d0 


; LOAD width 


move.l 


dO. LS.U_ix<a6) 


; SAVE U.lX 


move . 1 


PS.height(a6).dl 


; load height 


mulu.w 


dO.dl 


width*height 


lar.l 


11, dl 


width* height/ 2 


add.l 


al.dl 


; width* height/*! 


move . 1 


dl,LS.U_eyie6) 


; SAVE 0_ey 


add.l 


dO.dO 


; width* 2 


move.l 


dO,LS.Yl(a6> 


; SAVE Yl 


move. 1 


dO.LS.Y_y(e6> 


; SAVE Y_y 


move.l 


PS.rovByte (a6) ,dl 


; LOAD rowByteS 


add.l 


dl.dl 


rowBytea*2 


sub.l 


dO.dl 


; rowBytes*2-width*2 


move. 1 


dl ,LS.?_y (a€) 


; SAVE P_y 


move. 1 


PS.rowByte<a6) ,d5 


; load rovfcytes 


clr.l 


d6 




clr.l 


d7 




move. 1 


LS.U_i*(a6) ,d0 


; LOAD U.ixB 
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add.l 
move. 1 


*4.d0 

dO,LS.U_ex(a6) 


; F*U_ixB 
; SAVE U.exB 


GCTUV 


al,a2.d0.d4 


; d4r00UV00UV i 10 i 


OETY 
rave . w 
move . 1 
a4d.l 


(aO) .a4.d4.dl.d2 

dl,dJ 

d2. (a3) 

d5.a3 


; calc d2,dl pixel 


move . 1 
GCTY 
move . w 
move. 1 


LS.Y1 (a6) .dO 
(eCdO.w) , d 4,d4.dl,d2 
dl,d2 
d2, (a3)* 


: load Yrow 

; calc d2.dl pixels 


swap 

addq. 1 


d4 

«U.aO 


; next UV 
; neat Ys 


move . 1 
GETY 
move . v 
move . 1 
sub.X 


LS.Yl(a6),dO 

<a0, dO.w) ,a4,d4,dl.d2 

dl,ci2 

d2, (a3) 

d5,a3 


; load Yrow 

; calc d2,dl pixels 


GETY 
move .w 
move . X 


(a0)*,a4,d4.dl,d2 

dl.d2 

d2. (a3)* 




cmpa.l 
bit .w 


LS.U_*x<a6),al 
«do_x 




add.l 
add.l 


LS.Y_y(a6) ,*0 
LS.P^y(a6| ,a3 




cnpa.l 
blew 


LS.U_ey(a6),al 
edo_y 




movem. 1* 

unlk 

res 


<a7)*,d4-d7/a3-a5 


; restore registers 
; remove locals 
; return 


ENDFUNC 






END 
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Ail r;ghts reserved. 

Written ty: Adrian Lewis 



6E000 Fast RCB/YVV code 



include Traps. a' 
machine nc68030 



macro 

RCB2Y iApixel . tAY 



dO - pixel/r, dl - g/2g+r. d2 - b, d3 - Y 



move • 1 


4Apixel,dO 




pixel ••Apixel 


€or • 1 


#S00808080 dO 




signed pixels 


ir.c ve • D 


d0,d2 




b»pixelf3] 


ext . w 


d2 




b is 6(16) bit 


move . w 


dO.dl 




gxpixelf 21 


asr.w 






2g is 9(16) bic 


swap 


dO 




r=pixel( 1] 


•XX. w 


dO 




r is 6(16) bit 


movt.w 


d2.d3 




Y.b 


lal.v 


#3.d3 




Y<<»3 


sub.v 


d2.d3 




Y— b 


add. w 


dO.dl 




2g+*r • 


add.w 


dl,d3 




Y*»2g*r 


add. w 


dl.eU 




Y**2g*r 


add. w 


dl.d3 




Y+s2g*r 


asr.w 


*4,d3 




Y>>»4 


add.v 


dl.d3 




Y*»2g+r 


move . v 


d3.4AY 




AY»Y is 10(16) bit 


cndm 








macro 








RGB2UV 


&A'J. LAV 






dO - r, 


d2 - b. d3 - Y. 


dl - O/V 


add.v 


dO,d0 


i 


r is 9(16) bit 


add.v 


d2.d2 


I 


b is 9(16) bit 


asr.v 


f l.d3 




Y is 9(16) bit 


roove.v 


d2,dl 




Usb 


sub.v 


d3,dl 


* 


Usrb-Y 


move.v 


di.tAD 


i 


AU»U 


nova. v 


dO.dl 




v.r 


sub.v 


d3,dl 




Ver-Y 


nove.v 


dl,*AV 


t 


AV»V 



' endn 
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if 4TY|£( 'aey )#'UNDEFINED' then 

3*3 laeo, 

•r.dif 



RGE2 
• 


YUV2 FUNC 


EXPORT 






link 


a€. *0 


; r.c local variables 




movent . 1 


d4-d7/a3.-(a7) 


; sccr« registers 




move . 1 


$0008(46) ,a3 


; pms-pixmap 




move . 1 


S000C(a6) ,a0 


; Y-YC 




• move . 1 


$0010{a6>.al 


; U*Oc 




move . 1 


S0014 (a6) ,a2 


; VrVc 




move . 1 


S0018 Ia6 } ,d7 


fend sax ea 




asl. 1 


#2 ,d7 


; fend<<— 2 




add.l 


a3.d7 


• f ttnd^ spin 




move . 1 


S001C (ati ) , d4 


; vidtri_£ = width 




asl. a 


• 2, 64 


• width £x<>2 

f i ■ * i i, r ■ 




move. X 


S0020<a6) ,d5 


; inc.jD*coli 




asl.l 


• 2 ,d5 






sub. 1 


d«.d3 


; inc_b-=widch_b 


edol 


move. 1 


a3,d6 






daa . l 




r owend* »v idthlb 




rgb2y 


i aj ) ♦ , i ao ) 4 


r$b2y ( pm*+ , Y++ ) 




ra;b2uv 


(al ) ♦ , (a2 ) * 


rob2uv(U*+. 




rcb2y 


<a3)*,(a0)* 


rcb2y (pm**, Y++) 




CITpl . 1 


d6,a3 


row«nd>pro 




bit .s 


«do2 


vhile 




adda.l 


d3,a3 


pm*»inc_b 




move. 1 


a3.d6 


rovend=pm 




add.l 


d4,d6 


row*nd-» wwi dth_b 


9do3 


rgb2y 


(a3)*.(a0)* 


rgb2y (pnw.*, Y++) 




crr^a. 1 


d6.«3 


rovcnOpfn 




blt.a 


«do3 


vhile 




adda.l 


d5.a3 


pm+»inc_b 




cmpa. 1 


d7,a3 


f •nd>p«n 


• 


bit .w 


fldol 


while ~ 




movem. 1 


(a7)*,d4-d7/a3 


restore registers 




unik 


aC ; 


remove locals- 




rca 




return 



ENDFUNC 



macro 






FETCHY 


LAY. tY. LA, tC. LB 




move . 1 


LAY.LY 


; Y = • AY** 


add.l 


LY,LR 


; RR+sYl2 


add.l 


tY.LG 


r nC^-Y12 


add.l 


LY* LB 


; BB*.Y12 


endnt 







macro 




F1XOV 


4V f LSPl. LSP2 


rnove.w 


LV,*SP1 


clr.b 


4SP1 


andi.w 


#S3PFF,LSP1 


sne 


LSP1 


best 


tl3.*SFl 


seq 


L5F2 
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or . t 


&SF1.4V 






d r»d . v 


a»ri • v v 






swap 


&v 






nov* . w 


tV.iSPl 






clr.b 


SSP1 






a nd l . w 


•53FFT , &SP1 






sne 


iSPl 






Stst 


•13 , tSPl 






3eq 


iSF2 






or .b 


&SF1. CV 






and.w 


4SP2. iV 




• 


swap 


&V 






endm 








macro 






• 


OVERFLOW 


&A. &B. fcSFl. &SF2 






move . 1 


♦SFF00FF00. 4SP1 


; spl=maak 




move . 1 


&A.&SP2 


; 5p2=ovov (A) 




and. I 


iSPl, *SP2 


; 3p2=o0o0 (A) 




lsr.l 


*8. 4SP2 


; Sp2=0o0o (A) 




and. 1 


&B.4SFI 


; spl»oOoO (B) 




or. a 


&5P2.45P1 


; Spl-OOOO (EABA) 




move. 1 


&A.45P1 






or.l 


4B,ASP1 






andi. 1 


iSFFOOFFOO. tSPl 






beq.a 


Qok 


; if no overflow 




clr.w 


4SP2' 


; AKDsO 




FIXOV 


*A.&S»1. iSP2 


; Al overflow 




FIXOV 


&B.4SFl.i£P2 


; fil overflow 



endm 






macro 






KKRGB 


&R, &C. tB. IARCS 




lsl.l 


#8,4G 


; G«GCG0 (12) 


or.l 


£B.tC 


; G-GBGB < 12 > 


move. 1 


iR.fcB 


• B»OH0R (12) 


swap 


&B 


• BsOROR (21) 


movc.v 


&G.4B 


BsORGB (2) 


swap 


LC 


G*GBGB (211 


move . w 


iG.fcR 


R-ORCB (1) 


move. i 


4R.&ARGB 


•P.GB**»rgfc (1) 


move . 1 


£B. &ARGB 


•RGB**=xgt> (2) 


endm 






macro 






DUPVAL 


*vo, tvi 




move .w 


4V0.4V1 


vlsvO 


swap 


4V0 


dup vO 


move.w 


&V1.&V0 


move . 1 


4V0.4VX 


dup vl 


endm 







macro 

UV2RGB3 &AU. 4AV 
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dl - ra. 


62 - ga, d? - 


■ ba. d4 - 


ru, vC/-I^, 


move . w 


#512 , d5 




; 0 j » 5 1 d 


...ove. w 






; Ur *AU*-» 


300 * W 






; 'J is 10(16) 


iT.OVG ■ V 




■ 


; ba=U 


mAA u 

aoa . v 






; ga»2U 


dOG . V 


d3,d2 




: gac3U 


3dd . w 


d5,d3 




; ba*=512 


DUPVAL 


_i -\ J* 
CJ3 . ab 




; be=bb=BB 


asx. w 


#4,d2 




; ga*3U>>4 


move . w 


&AV,dl 




; V=*AV+* 


add. v 


cU,d2 




; ga*»V 


ddd.W 


dl,dl 




; ra»«2 


add. v 


d5,da 




; ra**512 


DUPVXL 


dl.d4 




; rasrbsRR 


suJD.w 


d2.d5 




; gb*522-ga 


DUPVAL 






; ga»gb»GG 


endra 









d€ 



bb 



if 4 TYPE I seg* ) * * UWDEF INED ■ 

seg 6 seg 

endif 



then 



VUV2RGB2 



FUNC 



EXPORT 



PS 


RECORD 


8 




pixmap 


DS.L 


1 




y 


DS.L 


1 




u 


DS.L 


1 




V 


DS.L 


1 




area 


DS.L 


1 




width 


DS.L 


1 




cols 


DS.L 


1 




» 


ENDR 






LS 


RECORD 


0, DECK 




:ac 


DS.L 


1 




wjdth 


DS.L 


1 




fend 


DS.L 


1 




count 


DS.L 


1 




LSize 


EQU 


• 




V 


ENDR 








aO - YO, 


al - Yl. a2 - U, a3 - v. a4 


* prnO. a 5 * pml 


• 


dC. .6 - 


used. d7 - count 






link 


a6. #LS.L£i2e 


; inc , width , f and 




mcvem . X 


d4-d7/a3-a5,-(a7) 


; store registers 




move. 1 


PS.pixmap<a6) , a4 


; pmC»pixn\ap 




move . 1 


a4.a5 


; pnvlepraO 




move. 1 


PS.Y(a€) ,aO 


; YOcYC 




move. 1 


aO, al 


f Y1=Y0 




move. 1 


PS.D(a6) ,a2 


• U=rUC 




move. 1 


PS.V(«6) ,a3 


v.vc 




move. 1 


FS.*rea(a6) , d7 


fend* area 




lsl.l 


#2.d7 


f end«»2 




add.l 


a4,d7 ; 


fend+*pmO 




move. 1 


d7, LS.fendlae") ; 


save fend 




move. 1 


FS.width<a6),d5 ; 


width-width 




move. 1 


d5.d7 ; 


counts width 



SUBSTITUTE SHEET fRULF ?fi» 
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asr . 1 
subq.l 
nove . 1 
add.l 
add.l 
add.l 
move . I 
move . 1 
lsl.l 
add.l 
add.l 
suo. 1 
move . 1 
*do 'JV2RG33 
FETCHY 
TETCHY 
move . w 
lsx.l 
and. w 
lsx.l 
and.w 
lsr.l 
and. w 
lsr.l 
and, w 
lsr.l 
and.w 
lsr.l 
and. w 
move . 1 
or.l 
or.l 
or.l 
or.l 
or.l 
andi . I 
bne.s 
<?ok HXJU3B 
MXRGB 
dbf 

adda.l 

adda.l 

adda.l 

exp . 1 

move.l 

cmpa . 1 

blew 

movMi. 1 

unlk 

rts 

©over move.l 
clr.v 

FIXOV 
FDCOV 
FIXOV 
FIXOV 
FIXOV 
FIXOV 
move. 1 
bra 



<l.d7 
*l.d7 

d7. ?S. vid:h(a6) 

d5.d5 

dS.al 

d5.d5 

d5.LS.width:a6> 

PS.cols ia6) , d4 

«2.d4 

d4,a5 

d4. d4 

d5,d4 

d4.LS. inc(a€) 
<a2) + .. <a3)- 

(a0)*,d0,dl,d2.d3 
(al)*.dC,d4,d5.d6 
•S3FFF.dO 

• 2,dl 
dO.dl 
*2,d2 
d0,d2 
#2,d3 
d0.d3 
#2.d4 
d0.d4 

• 2,d5 
dO.dS 
*2.d6 
d0.d6 
dl.dO 
d2.d0 
d3,d0 
d4.d0 
d5.d0 
d6 , dO 

«SF7U0rF0O.dO 
©over 

dl.d2,d3. (a4) + 
d4,d3,d6, (a5l + 
d7,«do 

LS.incla6),a4 
LS. inc 126) . aS 
LS.vidth,'a6) ,a0 
aO,al 

PS.widthfa6> ,d7 
LS.fendtaC) ,a4 
$do 

ta7)*,d4-d7/a3-a5 
a6 

d7,LS. count (a6) . 
d7 

dl,d0 # d7 

d2,d0.d7 

d3.d0,d7 

d4,d0,d7 

d5.d0.d7 

d6,dC.d7 

LS. count (a6) ,d7 

0ok 



; count >>sl 

: count -»1 

: save width 

; widch-=2 
; Yl*»width 
; width* =2 
; save width 
; inc^cols 
; inc<<s2 
: pml*»inc 
; COls*=2 

; inc now 2»cols-vidth bytea 

; save inc 

; uv2rgb( *U.**, •V*+) 

; add Ya to RGB values 

; add Yb to RGB values 

; dOsmask 

' dl 8(161 bits 

dl masked 

d2 8(16) bits 

d2 masked 

d3 8(16) bits 

d3 masked 

d4 8(16) bits 

d4 masked 

d3 6(16) bits 

dS masked 

d6 8(16) bits 

d6 masked 



; if overflow 
; save ACBa 
; save AG&b 
; while 

; pmO+sine 
; pml»»inc 
; YO*. width 
; Y1<->Y0 
; count=width 
r prnO<fend 
■ while 

restore registers 
remove locals 
nturr. 
save count 
AND=0 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 
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ENDTUMC 










if 4 TYPE ( 'sea. ' ) * ' UNDEFINED ' 


Khan 

c nen 








iseg 








endif 








CRTY2Y 


tunc 


EXPORT 






PS 


RZCORD 


8 






pixmap 


DS.L 


1 






Y 


DS.L 


1 






area 


DS.L 


1 






width 


DS.L 


a 






cols 


DS.L 


1 








OJDR 








00 


- vvw, dl - vOvl, d2 - v2v3. 


d3 - xor, d* - width, d5 - inc. 


AO 


_ pin t a X 


* y 








link 


d€ #0 




; no local variables 


• 


movent. 1 


04-07, - (a/) 




; store registers 




move . 1 


PS. pixinap I a6) , aO 




; pit-pixjiap 




move . 1 


PS.Y(a6>,al 




; YsYC 




move . 1 


PS. area (a6) ,d7 




; fend: area 




add. 1 


a0,d7 




; fend* spra 




move.l 


PS .width ( «6 ) , d« 




; width_b»width 




move . 1 


PS . col* ( *6 ) , d3 








sub.l 


d*.d5 




; inc_b-=vidth_b 




move . 1 


*S7nr7F7r.d3 






edol 


move. 1 


a0,d6 




; rovend*pnt 


*do2 


add.l 


d4,d6 




; rowwnd^ewidth.b 


move.l 


(aON.dO 




; ww ■•pro 




eor.l 


d3,d0 




; ww is signed 




move . v 


d0.d2 




r d2»v2v3 




asr.w 


#6,d2 




; d2av2 (10 bits) 




swap 


d2 




• d2«v2??- 




move .b 


d0,d2 




■ d2rv2v3 




%XZ .V 


d2 




v3 extended 




131. W 


#2,d2 




d2rv2v3 (10 bin) 




swap 


dO 




d0»v0vl 




move. v 


d0,dl 




dlsvOvl 




asr.w 


»6.dl 




dlsvO (10 bits) 




swap 


dl 




dl«v0?? 




move.b 


dO.dl 




dlwOvl 




ext .w 


dl 




vl extended 




lSl.W 


• 2.dX 




dlsvOvl (10 bits) 




move. 1 


dl. (al)* 




*Y«dl 




move. 1 


d2 f (al»* 




•Ys<!2 




cnrpa . 1 


d6,a0 




rovend>pm 




bit .5 


edo2 




while 




adda.l 


d5,a0 




pnu ■ inc_b 




cmpa. 1 


d7,*0 




fend>pt& 




blt.s 


edol 




while 




movem. 1 


<a7)*,d*-d7 




restore registers 




an lk 


*€ 




remove locals 




res 




i 


return 




ENDFUNC 










if &TYFE ( ' seo, 4 ) * ' DNDEF INED * then 






sec; 


&seo 
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r J"W 






D C 




a 




pi >map 








y 


OS . L 






he igh: 


DS . L 


i 




width 


DS . L 


1 




cols 


DS . L 


i 
i 




■ 


ENDR 






dO- 


spare, 


dl - v43, d2 - v21. d3 - 


- spare. d4 - width. d5 - inc. 


aO 

* 


- prn, al 


- Y 






link 


a6. 10 


; no local variables 


• 


mcvem. 1 


d4-d7, - (a? J 


; score registers 




move . 1 


PS.pixmap(a6) . aO 


; pm=pixmap 




move. 1 


FS.Y(a6J.al 


; YsYc 




move . 1 


PS height ia6) . d" 


; long height 




subq.l 


*l.d7 


; height-sl 




move . 1 


PS.width(a6i . d4 


; long width 




move . 1 


PS. cols (a6i . d5 


; long inc=cols 




sub. 1 


d4.d5 


.* inc~=width 




i sr . I 


*2.d4 


; w id t h-> > = 2 (read 4 value! 




SUbQ • 1 


M . d4 


width- «1 


9dol 


move • 1 


d4,d6' 


r count svidch 


Qdc2 




( al ) + , dO 


; d0=x4x3 




move » 1 


fal ) ♦ .dl 


; dl«x2xl 




move . 1 


#soiFFOirr,d2 


; d2»511 




move . 1 


d2. d3 


; d3»51X 




sub. 1 


d0,d2 


unsigned d2 




sub. 1 


dl.d3 


; unsigned d3 




lsr . 1 


#2,d2 






lsr. 1 


*2,d3 






move . 1 * 


d2.d0 






or . 1 


d3.d0 






andi . 1 


•$3FOO2F0O.dO 






bne . s 


Pover 


; i t no ove r f 1 ow 


0ok 


Isl.w 


»8,d3 


; d3»0210 




Isl.w 


• 8,d2 


: d2»0430 




isr.l 


• 8,d3 


; d3=0021 




isl.I 


• 6,d2 


; ctf.4300 




or . ; 


d3.d2 


; d2=432l 




move . 1 


d2 , laO)- 


; •pitisd^ 




dbf 


d6.@do2 


; while -11= - -count 




adda. 1 


d5,a0 


; pra*=inc_b 




dbi 


d7.*dol 


; while -l's"height 




roovem. 1 


(a7>*,d4-d7 


; restore registers 




unlk 


a6 


: remove locals 




res 




: return 


Gover 


clx .w 


dl 


; ANDsO 




nxov 


d3.d0.dl 


; A overflow 




FIXOV 


d3,d0.dl 


; B overflow 


• 


bra.s 








ENDFUKC 







c, d6 - count, d 



macro 
GGC 



&V,*SF1,4SF2.4AV 
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rr.cve . 1 


tv. kST2 




Isl.i 


»8. iS?2 




cr.l 


4V.ti?2 




rr.cve . 1 


4V. tS?V 




swap 


iSFl 




rove . w 


LSP2. tSPl 




swap 


&SF2 




rr.cve . w 


&SP2.4V 




move . 1 


&V,i>V 


• 


move . 1 


ISP1. tAV 




eiidrn 






if A TYPE ( 'see;' )*' UNDEFINED' 




sec 


&seg 




endif 




Y2GGG 
• 


FUNC 


EXPORT 


PS 


RECORD 


8 


?i>cuap 


DS.L 


1 


Y 


DS.L 


1 


lines 


DS.L 


1 


widen 


DS.L 


1 


cols 


DS.L 


1 


• 


ENDR 




dO 


- v. d4 - 


width, d5 • inc. d6 


* aO 
* 


- pm« al 


- Y 




link 


a6. #0 


• 


move©. 1 


d4-d"7,-la7) 




move. 1 


PS .pix7nap<*6) ,a0 




move . 1 


PS.YU6) ,«1 




move. 1 


PS. lines <a€) ( d7 




subq. 1 


«l.d7 




move . X 


PS.vidth(a6) ,d4 




move . 1 


FS.cols(a6) .d5 




sub.l 


d4.d!> 




lsX-1 


•2.d5 




lsr.X 


*2.d4 




subq. 1 


M.d4 


9dcl 


move. 1 


d4.d6 


•?do2 


move . 1 


ial)*.dO 




move . 1 


(al)*.dl 




move. 1 


•$O2O0C2O0.d3 




add.l 


d3,d0 




add.l 


d3.dl 




lsr.l 


#2,d0 




lsr.l 


•2.di 




move.w 


#$3FFF,d2 




and.v 


d2,d0 




and.v 


d2.dl 




move.l 


d0,d2* 




or . 1 


dl.d2 




audi. X 


*SFFOOFF00.d2 




bne.s 


9ov«x 


Ook 


GGG 


d0.d3.d3. (a0>* 




GGG 


dl.d3.d3. (aO)* 




dbf 


d6 , fido2 




adda.l 


dS.aO 




dbi 





SP2*0102 
SF2=1020 
SP2=1122 

sfi=cio: 

SFXaC201 

SF1=0222 

SF2=2211 

VsOlll 

*pm«V 

•pm=SPl 



count / d7 



lines 



no local variables 
store registers 

pmspixmap 
YeYC 

long lines 
lines--l " 

long width 

inocola 

inc-»width 

inc (bytes) 

width>>=2 

vidth-»l 

count *width 

d0=xlx2 (10 bits signed) 
dl*x3x4 (10 bits) 
d3»plu* 
d0cxlx2 
dl*x3x4 
d0»xlx2 
dX*x3*4 
d2=mas* 
mask dO 
mask dl 



(unsic/ned) 
(unsigned) 
(10.8 bits) 
(10,8 bits) 



if no overflow 



while -X Is—count 

pm-f a inc.b 

vhi 1 e - 1 ! • - - 1 ir.* t 
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mover*. 1 

unik 

rts 



i a* J * . d4 -dT 

86 



rescore registers 
remove locals 
recurn 



rir.w 


d3 




r . ac j 


-r -o -o 


a overflow 


FIXOV 


Ci.C2.C2 


; B overflew 


bra.w 






LNDFUNC 






macro 






HXRGB2 


4R, &G, LB, 4ARCB. 


A ROW iXX 


lsl. 1 


«8,&G 


; C*C0C0 C2> 




&B * 4G 


; G=GBGB \ 12 t 


move . 1 


on. «13 


B ABA* # i ^ I 

; BsOROR (12; 


swap 




; B»0R0R (21) 


move . w 


&G,4B 


; E=0RGB (2) 


svap 


4G 


; GiGBGB (21) 


move . w 


tG. 4R 


; R=0RGB (1) 


andi . 1 


#sfffefefe.4r 


; 1 bits for interpolation 


and: . 1 


•SFFFEFEFE, 4B 


; i bits for ire erpclat ion 


move . i 


4R. 4G 


; C = RGBU> 


add. 1 


4B.4G 




lsr'.l 


#1,4C 


; G/-2 


move . 1 


4fi, 4 XX 


; XX = RGB (2) 


sub.l 


4R, 4XX 


; XX-*RGB<1) 


lsr.l 


*1,4XX 


; XX/»2 


add.l 


45.4XX 


; XOU*B 


move . 1 


&R, ( 4JLRGB ) •* 


; •RGB*-**rgb (1) 


mov© . 1 


&G. <4ARCB)* 


; •RGB**»r9b *11.5) 


move . 1 


4B. ( 4ARGB ) * 


; »RCB*~*rgb (2\ 


move. 1 


4B, UARGB ) * 


; -RGB***rgD (2.5) 


add.l 


&ROW, 4ARGB 




sub.l 


* 1 6 , 4ARGB 




move . 1 


4R. (4ARGB)* 


; 'RGB^-rgb (1) 


move . 1 


4C. (4ARGB)* 


; 'RCB—^rgb (1-5) 


move . 1 


4B, (4ARGB)- 


; *RCB**srgb (2) 


move . 1 


4B, ( 4ARGB ) * 


; 'RGB***rgb (2.51 


sub.l 


6 ROW, fcARGB 





endn 



if 4 type ( 'seg' ^'Undefined* then 



seg 
endif 



YUV2RGB3 
PS 

pixmap 
Y 
L* 
V 



FUNC 



RECORD 
DS.L 
DS.L 
DS.L 
DS.L 
ZS.l 



EXPORT 



siirstiti'itf £wpft mm p ?fn 
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width 
cols 



DS.L 

z$ . l 

DJDR 



:r»C 

width 

rend 

count 

row 



<?do 



RXCORD O.DECR 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
EOU 
ENDR 

aO - YO. dl - Yl. &2 - U. 
d0..6 - used. d7 - count 



a3 - v. a4 - pmO. a 5 - pml 



link 
movem. 1 

move . 1 
move . 1 
move. 1 
move.l 
move . 1 
move . 1 
move . 1 
lsl.1 
add.l 
move. 1 
move. 1 
move . 1 
aar, 1 
subq. 1 
move . 1 
add.l 
add.l 
add.l 
move . 1 
move . 1 
lsl.l 
move . 1 
add.l 
add.l 
add.l 
add.l 
sub. I 
sub.l 
move . 1 
UV2RGB3 

TETCHY 
FETCHY 

move.w 
lir.l 
and. v 

lSX.l 

and. v 
lsr.l 
and.w 
lsr.l 
and.w 
lsr. 1 



.a2 



a6. iLS.LSize 
d4-d7/a3-a5. - ta7) 

PS.pixmapla6) , a4 
a4.*5 

PS.YIa6) ,a0 
aO.al 
PS.U(a6> 
FS.V(a6) ,a3 
PS.area<a6) ,d7 
#2.d7 
a4.d7 

d7, LS. fend(a6) 
FS.vidth(a6> , d5 
d5 . d7 
• l.d7 
tl.d7 

d7,PS.width(a6) 

d5.d5 

d3,al 

d5,d3 

dS.LS.widthfefi) 
PS, coli u€l ,d4 
*2.d4 

d4,LS.rovia6} 

d4.a5 

d4,a5 

d4,d4 

d4.d4 

d5.d4 

d3,d4 

d4,LS. inc(e6) 
U2)-», (a3)* 

<aO)-,dO,dl.d2.d3 
<al)*,d0,d4,d5,d6 

*S3FTr,dO 

*2,dl 

dO.dl 

92.62 

d0,d2 

#2,d3 

d0,d3 

«2,d4 

d0.d4 

-2. d3 



inc. width, fend and rowend are loca 
score registers 

pmO*pixmap 
pml»pnO 
Y0 = YC 
YlrYO 
U=UC 

v.vc 

f«nd=ar«a 
fend<<*2 
tend+*pmO 
save fend 

widthwvidth 

count width 

counc»al 

count -«1 

save width 

vidth*»2 

Yl**vidth 

width* s2 '* 

save width 

inc»cola 

ine<*»2 
•NEW save row 

pml*sinc 
•KEW pml*»inc 

cols*«2 
•NEW COlS*e2 

inc now 4*cols-vidth bytes 
•NEW inc now 4*cols-width bytes iwid 

save inc 

uv2ryb( # U**. •V**) 

add Yi CO RGB values 
add Yb to RGB values 



iflk 

8(16) bits 
dl masked 
d2 8(16) bits 
d2 masked 

8(16) bits 
masked 
8(16) bits 
d4 masked 
41 B'l*> bits 



d0« 
dl 



d3 
d3 
d4 
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•iok 



Sover 



and.w 
isr.l 
and.w 

rtcve . 1 
cr . L 
cr.l 
cr.l 
cr.l 
cr.l 
andi . 1 
bne.w 

MXRCB2 
KKRGB2 
dbf 

adda . 1 
adda . 1 
adda. 1 
exg . 1 
nove . i 
cmpa . 1 
blt.w 

movem . 1 

unlk 

rts 

mov* * X 

cix.w 

FIXOV 

nxov 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

move . 1 

bra 



macro 
FETCKY2 

move . X 

asr.v 

swap 

asr.v 

swap 

add.l 

add. 1 

add.X 



dO.dS 
• 2.d* 
dO.d* 

d:.dO 
d2.d0 
di.dO 
d4.d0 
dS.dO 
dfi.dO 

?SFF0OFFOO,d0 
©over 

d X . d2 . d3 . a 4 . LS . r ow ( a 6 \ . dO 
d4 . d3 , d6 . a 5 . LS . row ( a6 ) . dO 
dl . «do 

LS. inc(a6).a4 
LS. inc ( a6» . a5 
LS. vidth(a6) . aO 
aO.al 

?S.vidth<a6) . d7 
LS.fendta6).a4 
edo 

U7)*.d4-d7/a3-a5 
afi 

d7. LS. count (a€) 
d7 

dl,d0,d7 
d2.d0.d7 
d3,d0.d7 
(34.d0.d7 
d5.d0.d7 
d6,d0.d7 
LS. count (a6) -d7 



d5 masxec 

do S 1 1 6 ) ci:s 

d6 rnasxed 



kAY. tY. tR. tB 

kAY.fcY 
*2.iY 

&Y 

#2.fcY 

&Y 

ty. tR 

&Y.4G 
&Y.*B 



if overf Xow 

; *NEW save RCBa 
; -NEW save RGBb 

while 

pmO-=inc 

pml* = ir.c 

Y0»=width 

YI<->YC 

count swidth 

pmO<fend 

while 

restore registers 
remove lccais 
return 
tave count 
ANDsO 

A overflow 
B overflow 
A overfXow 
B overflow 
A overflow 
B overflow 
restore count 



Y ; g -X2fl to -127 

prn G*t IY- 2V ♦ 512) for Red *• (Y * 

S™?i«t «y% .sis - ««Y /l6 i! • v \ 

BLUEVcet IV • <20 ♦ 512) for Blue » I 



endm 



macro 
OV2*GB4 

move. v 
and.w 
move. 1 
move . 1 
move . 1 
move . v 



LAO. LAV 

LAC.d2 
#$03FF,d2 
Ia6.d2.w8).d3 
d3.d6 

4Ia6.d2.w-8J.d5 
*AV.dl 



BLUE. Get (20 * 512J/4 for Blue - <Y * 
Due for second pair 

C.t 1512 - <60/16) 1/4 tor Ore. 
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move . w 
asr.v 
sab. w 
move . v 
swap 
move . w 
move . i 

and. v 
move . 1 
move . i 

endm 
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dl,d4 
0,dl 
dl.dS 
d5,c!2 
d5 

d2,d5 
d:i,d2 

*$03FT.d4 
(a6.d4 .W8) ,d4 
d4.cU 



:GR£EN, Gee (512 - »£L-/16J - Vi/4 !or 
; Dup iox second pair 

; RED, Get (2V * 512) /4 for Red = (Y - 



HKRCS2SUB 



TUNC 



KKRGB2 
MKRGB2 
res 

DJDFUNC 

0VER5UB rUNC 

move . 1 
or.i 
or.l 
or.l 
or.l 
or.l 
andi.l 
bne. 3 
«ok rti 
tover move.l 
clr.w 
FIXOV ■ 
FIXOV 

fixov 
nxov 

FIXOV 
FIXOV 
move . I 
bra 

ENDFUKC 

UV2 KG E 4 SUB FUNC 

UV2RGB4 
res 

ENDFUHC 

FETCKY2SUB FUNC 

FETCHY3 
FETCMY2 
rta 



EXPORT 

dl.O2.d3.a4.d7.d0 
d4,d5,d6.a5.d7,d0 



EXPORT 

dl . dO 
d2,d0 
d3.d0 
d4.d0 
dS.dO 
d6.d0 

•srFOorFOO.de 
iover 

d7,-<sp) 
d7 

dl.d0,d7 
d2.d0.d7 
d3.d0.d7 
d4.d0,d7 
d5,d0.d7 
d€.d0.d7 
t sp) *,d7 
9 ok 



EXPORT 
(a2)*, <a3)+ 

EXPORT 

(a0)*.d0.dl.d2.d3 
|Al>*,dO,d4,d5,d6 



•NEW save RGB* 
•NEW save P.GBb 



if overflew 

save count 
AND»0 

A overflow 
B. overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 



uv2rgbCU* 



add Y* to RGB values 
add Yb to RGB values 



ENDFUNC 
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seo, 
er.di! 



rrac 



LXPORT 



J* 5 

Table 

pixmap 

Y 

U 
if 

area 

width 

ccis 



LS 

inc 

width 

tend 

count 

row 

L3ne 



~ICOPI> 

DS. - 

DS.L 

DS. L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 

RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

£00 

ENDR 



DECK 



aO - YO. al - Yl. a2 - 0. a3 
d0..6 - used. d7 - count 



- v, *4 - proO. a3 - pml 



1 ink- 
mo v em. 



move. 1 
move . 1 
move. 1 
move. 1 
move . 1 
move. i 
move . 1 
lsl.l 
add.l 
move . 1 
move . 1 
move . 1 
asx . 1 
subq.l 
move . 1 

add.l 

add.l 

add.l 

move . 1 

move. 1 

lsl.l 

move. 1 

add.l 

add.l 

actt.l 

add.l 

sub.l 

sub.l 

move . 1 



a6, *LS.LSize 
d4-d7/a2-a5, -<a7) 

PS. pijcnap< *6 ) . a4 
a4.*S 

PS.Y(a6) ,aO 

AO.il 

PS.U<e6> .a2 
PS.VU€> ,a3 
PS.area(a6» ,d7 

♦ 2,d7 
a4,d7 

d7,LS.rend(a6> 
PS . width (a6 ) .dS 
d3,d7 

• 1 . d7 
#l.d7 

d7 . PS . width (a6 » 

d5,d5 
dS.al 
d3,d3 

d5,LS.width(a«i 
PS.colsiaO .d4 
#2.d4 

d4.L5.row(a6) 

d4,a5 

d4.a5 

d4.d4 

d4.d4 

d5,d4 

6* ,64 

d4. LS. inc ia6> 



inc. width- fend and rowend axe loca 
store registers 

pn»0»pixmap 
pnUspmO 
YO.YC 
Yl-YO 

U*OC 
VaVC 

f and* area 
rend<«2 
£end*»pmO 
save fend 
widthwidch 
count =width 
counc>>«l 
count -«1 
save width 

vidth**2 

Yl»»widch 

width #, s2 

save width 

inc»cola 

inc*<=2 
•NEW save row 

pml* = inc 
•NEW pml+»inc 

cols»»2 
•NEW cols»=2 

inc now 4*cols-width bytes 
•MEW inc now 4*cols-width bytas (wid 

save inc 
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<?ck 



Gover 





a6 . * < sp) 




IS. rcw(a6> ,-d7 


T.ove . * 


?S. Table <a6 1 , ao 


■jv:rcb4 


(a2)*, (a3>* 


fitchy: 


i a 0 ) * , cj . al . . CJ 


TETCHY? 


;alJ*. d0.d4.d5.de 


move . - 


dl.dO 


or.) 


d2,d0 


cr .) 


d3.d0 


or . 1 


d4.d0 


or.l 


dS.dO 


or.l 


d6.d0 


andi . 1 


♦$Fr0OFF0O,d0 


bne .w 


9over 




dl.d2.d3.a4,d7.d0 


HKRCB2 


d4,d5.d6,a5,d7,d0 


move . 1 


I sp) + , a 6 


move . 1 


t sp ) ♦ » d7 




d*7 ido 


adds . 1 


• lilt I BO / » C 


add* . 1 


1*3 . lilt l*DI * • 


adda . 1 


*C u4 i^rh t JiA 1 if) 


exg. 1 




move . 1 


PC uiHrh(ftfi) d7 


cmpa . 1 


IS, fend (.6) , a* 


bit. a 


Odo 


rocvef* . 1 


{a7)*,d4-d7/a3-a5 


unlk 


a6 


ITS 


d7 # LS. count ta6) 


move . 1 


clr.w 


d7 


FIXOV 


dl.d0,d7 


FIXOV 


d2 . dO . d7 


FIXOV 


d3 . dO . d7 


FIXOV 


d4.d0,d7 


FIXOV 


d5.dG\d7 


FIXOV 


d€.d0,d7 


move . 1 


LS . count (a6 J .d*? 


era 


eok 


EKDFUKC 





; cv2r<?bt # U*-. "V— J 

; add Ya to RGB values 
] add Yb to RC5 values 



; it overflow 

•NEW save RGBa 
•NEW save RGBb 



while 

pmO-sinc 
pml*a inc 
Y0*s width 
yi<->Y0 
count » width 
pmO^f end 
while 

restore registers 
remove locals 
return 
save count 
AND*0 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 



END 
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" 5 Copyright 1993 KLICS Limited 
• All ngnis reserved. 

■ w—i-_*n cy ; Adrian Levis 



Analyse CLUT setup and pick appropriate 
YUV->fcGE ccnverter/display driver. Create 
any :ables necessary. 

•/ 

•include <QuickDrav.h> 
■include <Hemory.n> 

•define -".LEVELS 

= de£ir.« uV_ LEVELS 15 

-define absviv) t ( vxC?- I vj : (v) ) 
^define NewPomter tptr . type . size ) \ 
saveZone=Get2cne < : .* \ 
SetZone t Syscemzone ( ) ) ; \ 
i: inil== tpcr* (type iNevFtr I size) n t * 
S«t2one (ApplicZoneU ) ; \ 
if <nil== (pcr= (typeJNewPtrl size) ; ) ( \ 
SetZone (saveZone) : \ 
return < Me»oryError 1) ) ; \ 

) \ 

) \ 

SetZone I save2on« ) ; 

typedef struct < 

cnar u, v; 

I YUV_Clut; 



unsior.ed char * 

CclourClUw (CTabHandle clue) 

ir.t size, y. u. v. r. g. b. i; 
unsigned char -table; 
VIT/.C 1 '- 1 * y u v_c 1 u t ; 

s i2e» 'clut ) -»czSixe; 

t&ble-iunsigned char ' JNevPtr (Y.LEVELS* UV_ LEVELS* UV_LEVELS J ; 
yuv.clut = ( YUV_Ciut • JNewPtr tsise'siseoi (YUV_Clut ) I ; 

fori i=0; i<ssiie: ( 

r»< < • clut ) ->ct Table f i] . rgb. red>>8 ) -129 ; 
gs ( ( *clut ) ->ctTable [i] .rgb.gr#«n>>8) -128; 
b=( rcluc) ->ctTabl«[i] .rgb.blue»fi)-12 8; 

yuv clutlij.y* (306T + 601-g - 117*b)»10; 
yuv'clut til .ua (512*r - 429-g * 83*b)»>10: 
yuvlclut(i) .v» (-173T - 339*g ♦ 3l2*b)»10; 

for<y=-Y LEVELS/2 ;y«Y_LEVELS/2-l;y**> 
f cr lus-UV LEVELS/2 ;u<UV_ LEVELS /2-1 ;u** > 
for I v« - wZlTVELS/2 ; v«UV_ LEVELS/2-1 ; v** ) { 

int ~ index, error, errorZ, points , Y. U» V; 



CMPCTITIIIT CWCFT /PHI P 0P\ 
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Ysy<<4; 

U=u<<5; 
V»v<<5 ; 

ir.dexsO: 
error=l31072; 

error2=l3!072; 

poincsrO; 

!or t i*0; i<=size: i**) ( 
inc ptsaO. err-Q; 

U (yuv_ciuc(iJ .y>*Y &t yuv_clut C i J .y<Y*l6 ) 
pts+sl; 

crr*=ab3v(yuv_clut [i] .y-Y) ; 

if (yuv.clut [i] .u>*U &4 yuv.c lut I i J . u<U*32 # 
pcs*xl; 

err **ab3V<yuv_clut [i] .u-U! ; 

if (yuv_clut (i) .v>sV £& yuv.clut [i] - v<v*32> 

pcs+sl; 
err*sab3v(y\jv_clut [i] .v-V1 ; 

if (pcs>points II (pcsaspoines 44 «rr<error») ( 
errox=ezr; 
indexsi; 
point*»pte; 

) 

i-( (ytOxlD <<8) I < <u40xF)«4> I (vtOxF) ; 
cable I i) * t unsigned char) index: 

DisposePtr ( (Ptr)yuv_clut ) ; 
return table; . 

)•/ 

typedef union ( 

long pixel: 

unsigned char rgb[4); 
• Pixel: 

y • 

unsigned long * 

ColouxClut (CTabHandle clut) 

long sue. y. u. v, r. g. b. ro. go, bc,i; 
Pixel -table; 

forty -Y LFVTLS 1 2 : y<Y_ LEVELS / 2 - 1 ; y+* ) 
tor (u*-UV LTVXLS/2 ; u< UV_ LEVELS/ 2-1 ; u** ) 
tortve-w"Lrm*S/2;v<lJV.LEVELS/2-l;v**) ( 

Pixel px; 

long base, dith/ 

r » 327681 ♦ Hy«9> ♦ 1436L*U <<2>; 

g . 32768L ♦ <(y«9) - 731L-U - 352L*v «2); 

b - 3276«L * (ty«9) ♦ 1815L»v «2 ) ,* 

rsr<0?0:r>65534?63534:r; 
g s g<0?0 :g>65 534 765334 ; g; 
*=b<0?0: t>65534?**534:b; 
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rc=r%13137; r.r/13107; 
go = gU3107; gsg/13107; 
bo*bll3107: b=fc/13L07; 

base=215- < 35'r*6*g-b) ; 

dichsfcase- <ro>2621?36 :0»-(gc>7863?6 :0) - (bo> 104 8 4 7 1 : 0 ) ; 
px . rgb( 0 | sdi Ch-.s 2157253 :dicil; 

dithsbase- I ro>524 2?35 : 0) - {go>10-4 84 76 :0 ) - (bo>262 1 7 i ; 0 I ; 
px.rgbti] =dich==213?235:dicn; 

dithrbase- (ro>7863?3t : 0) - (go>2 621?6 : 0) - 'bc>5242 71 ; 0 ) ; 
pji.rgb[2]=dichsa215?255:dith; 

dithrbase- ( ro> 1 04 8 4 73 6 ;0 ) - (go>5242?6 : 0) - (bo>7863 71 : 0 J ; 
px.rgb[3]=dith=*215?255:dich; 

i» < (y&0x3Fl«B) I i (ui0xT><<4) I (viOxF) ; 

cabled] .pixeUpx. pixel; 

return (unsigned lcng # ) cable; 



cyp*d«£ struct ( 

long red. green, blue; 

} HGBErrsr; 

OSErr ColourClut (Pixel ••table) 

( 

long y, u, v, r, g. b, i; 
RCBError "err; 
THz save Zone; 

NewPoincer( # cable.Pi>el*.Y fc IJ^LS , W_LFVIXS # l7V_LrVELS*3izeo£(long)) ; /• 64k ta 
NewPointer (err, KGBError* , Y_ LEVELS 'UV_ LEVELS *UV.,»LEVELS* sizeof (RGBError) > ; 

f or ( i=0; i<4; i**> 

tor (y»-Y_L£VELS/2;y<Y_LEVELS/2;y^> 
tor I u = - <JV_LEVELS/2 ; u<UV_LEVELS/2 ; u** » 
for tvs-LTV.LEVELS/2; v<LTV_ LEVELS/2 ; v ) ( 

RGBColor src. dst; 
long index, in ; 

index*! (yfcQx3F)<<8) I ( (ut0xi")«4) t <v*0xF); 

r » 32768L ♦ ( (y«9) - <H36L*u) «2); 

g a 32768L * ( (y«9) - (731L*u) - (352L*vi <<2); 

b = 32768L ♦ Hy«9) ♦ (1815L-V) «2); 

if (i>01 ( 

r-»err ( index) . red; 
g-s«rr ( iadex] .gre«n; 
b-»err (index) .blue; 

) 

src. redar<0?0:r>65534 7 65334 : r; 
src.green»g<0?0:g>«5534?65534 :g; 
src. blue=b<070:b>« 5 534 763 534 :b; 

'•*abl*i f in-dix) .r?b(i)i 'unsigned rh*r w rrlcr2:.nc«?x '^frc' : 
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Index2Colcr ( ( "table > [ index; .rest i J . *ds- ) ; 
err { index 1 . red=dst . red- arc . red; 
err ( lr.itx J . green»dst . green- src . green : 
err! ir.dex] .fcluesdst -blue -src .blue ; 

Dispose?* r i iFtr ;err ; ; 
return ( noErr : : 



typedef struct ( 

short pel (2] : 
) Pixl6; 

typedef struct ( 

unsigned cnar pel 14]; 
) ?ix8: 

-define YS €4 
♦define UVS 22 

OSErr Colours (Fix8 -"table) 

long y. u. v. r. g, b, i: 
RCBError -err; 
THz s eve Zone; 

NevPointer<*table.Pix**. YS*UVS*UVS*sizeof <Pix6) ); /• 128k table •/ 
NewPointer (err, RGEError* , YS* UVS* UVS* sixeof (RCBError) ) ; 

fortiwO: i<4:i**l 
ior(ys-YS/2;y<YS/2;y~) 
for(u»-UVS/2;u<UVS/2;u**) 
for(v»-WS/2;v<UVS/2;v**» { 

HGBColor src. dst; 

long index; 

index* (y«10) I ( (ui0xlFU<5) I IvtOxlF) ; 
r = ^2766L * Uy<<10) ♦ (1436L*u) 

g e 32768L - i (y«10) - (731L'u) - l252L*v) «1) ; 
b * 3276BL * My«10l ♦ I1815L-V1 «1); 

if (i>0) < 

r-»err | 32768* index] .red; 
g-='erx ( 32768* index) .green; 
b-seri f 32768*index] .blue; 

) 

src.reder<0?0:r>65334?6:334:r; 
src 5 xeen-g<0?0:g>65534?€5534:g; 
sxc.blue»b<0?0 :b>65 534 765334 :b; 

(•table) f32768*index]. pel [i) = (unsigned cher )Cclor2Iudex < fc.rc) ; 
lndex2Color I ( * table ) [ 32768*index) .pel i 1 ] . *dst ) ; 

err [32768* index) . red»dat . red-src.red; 

err (3 27 68* index) .green* dst. green- src. green; 

err (32768- index] ,blue*dtt .blue-src.blue; 

DisposePtrt (Ptr)err); 
return (noExr) ; . 



CMDCTiTi rrr rutCT /m« p 



WO 94/23385 



PCT/GB94/006T7 



. 772 - 



engineering : XiicsLcce :CcnpPict : CIvc . c 



OSEn Csiourl* iPixlS ••raolej 




♦err: 
saveZoni ; 



KevPc;r.v€: :*t.able. ? > x 1 6 * . YS * 'JVS * f JVS * s 1 2 eo f f P i x 1 6 ) J .* /' »28k cable 
KewPoinccr icrr . RGEEr ror " . YS"JVS*UVS* sneof (RGBErrcr) ) • 

icr(l:0:l<2:i**i 
icr <y=-YS/2 ;y<YS/2 ;y**l 
icr ;u<tfVS/2;u**J 
;cr t v- -UVS/2 ; v<UVS/2 ; v* + ) ( 

RGBColor arc. dsc: 
1 or.g i ndex ; 

ir.de-xs (y<<101 I ( (utOxlF)<c5) i (vfcOxlF) ; 

r a 3S768L * ( (y<<iO) ♦ <1436L'u) <<li; 

g = 32768L * (ly<<10) - (731L-U) - (352L # vj «1>; 

b = 32768L * ((y<<10» ♦ <1915L*v) <<1); 

i* ti>0) i 

r-cerr ( 32766* index) . red: 
g-=exr [ 32768* index) .green; 
b-*err (32768* index; .blue; 



src.xec2=r<C?0:r>«5«34?65534:r; 
src. green. g<0?0 :g>65534?€5534 :g; 
src.blue«b<0?0:b>65534?65534:b; 

dst.red- src.rediOxfBOO; 
dst. green* src . gr»«nlCxF800; 
dsc. blue* src .blueiOxFBOO; 

(•cable) (32766* index] .pel ( i ] » (d»t . red»l ) I (dst . gre«n>>6 ) l 

err ( 32768* index) . redsdst . red-src . red; 
err{32768* index) .green-dat ,greem-src. green; 
err (32768* index) .blue=dst .blue-src . blue; 

} 

-ispcsePtr ( t Per J err ) ; 
return t noErr) ; 



Bcolean 



GreyClut (CTabHandle clut) 



v 



Boolean resultstrue; 
int i. size; 



siie« < *clut)->ctsize; 
for ti=0;i<33ize &fc result ;i**J ( 



int r»g*b; 



r»cclut) ->ctTableii) .rgb. red; 
gm ( •clut)->':tTAble [i] -rgb. green; 
b» ( *clut ) - >ctT*ble ( i ) . rgb . blue ; 



result* U«g «■ g==b); 
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Written by : Adrian Lewis 

»/ 

Bits3.h: fast bit read/write definitions 

buf.use define static variables 

buf^winic initialise vara for write 

buflnnit initialise vars for read 

buf.set sec current bit 

buf_get get current bit 

buf.winc increment write buffer 

buf_nnc increment read buffer 

buf_size fullness of buffer in bytes 

buf_flush flush buffer 

User defined macro/ function bof.over must be defined in case of buffer overila 



cypedef struct ( 

unsigned long *tuf; 
union ( 

unsigned long mask; 
long bno; 
) index; 

unsigned long v ptr. data, size; 
) Buffer. *Buf; 

*d*fine buf.vinit (buf > \ 

buf ->index.ma$k*0x80000000; \ 
buf ->ptr»4buf ->buf [OJ ; \ 
bui->data*0; 

^define buf.rinit (buf ) \ 
buf -> inde* . bno*0; \ 
buf ->pcrs*buf ->buf (0) ; 

•define buf.setfbuf) \ 

buf->data is buf -> index. mask; 

■define buf_get (buf ) \ 

0 : = (bux ->data k \ l<<buf-> index. bnol ) 

■define buf .wine (buf I \ 

if ( bu f-> index. ma sk==l) ( \ 
•buf ->ptr=buf ->data; \ 
buf-xlata»0; \ 

buf *>index.mask*0x80000000; \ 
buf->ptx**; \ 
) else buf -> index. mask »* 1; 

•define buf.rinc Ibuf ) V 

if ( (buf -> index. bno»<0) ( \ 
buf ->data=*buf->ptr**; \ 
buf -> index. bno»31; \ 

) ; 



/* buf.sixe only valid afcer buf.flush 
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deiir.e bur_si i* ibuf ) \ 

tur.s-.^ned char * : buf ->ptr- (unsigned char * ) fibvr ->buf[0 ] 

det:n« buf.tlush (buf ) \ 

if i tu t ->mdex . mask: a0x8O00OOOOi { \ 
but -^daca I *bu* -> index. ma sk-1: \ 
*cuf ->ptr=but ->data; \ 
bu£ ->per ; \ 

) 
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63OC0 Bj t buffer code <Bics2.h) 



Macros : 

buf _winir. 
buf.rinit 
buf.set 
buf .get 
buf .wine 
buf _nne 



tptr . tdata, tmaak, &buf 
iptr. ibno. tbuf 
idaca . tmaak 
idata. fcbno 
iptr. idata,imask 
iptr.fcdata.fcihdex 



buf .flush iptr. &data. imask 



macro 






buf .vinit 

► 


iptr, fcdata. Unask, tbuf 




move . 1 


•S 80000000, Lffuik 


; masks 100.. 


move . 1 


fcbuf , tpcr 


; ptr*buf 


clr .1 


idata 


; data^O 


endm 






macro 






buf.rinit 


iptr. tbno. ibuf 




clr .b 


tbno 


; bno»0 


move . 1* 


U>uf . iptr 


; ptr»buf 


endm 






macro 






buf. set 


4 data, unask 




cr.l 


tmask. idata 


; data !* mask 


endrr 






macro 






buf_get 


4 data, tboo 




subq.b 


#l,4bno 




btst 


ibno,&d*t« 




endm 






macro 






buf. wine 


iptr,*data, *jnask 




lsr.l 


•1. tmaak 


; mask»«l 


trie, s 


Pcont 


; if non-zero continue 


move. 1 


idata, (AptrJ* 


; •ptr*-sdaca 


clr.l 


tdata 


; data»0 


mcv« . 1 


*S?CP0OO00. 'mas': 


; meskrioo . " . . 
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?conc 



en dm 



nacro 
bui.nnc 

cntpi .b 
b?e . 3 
swap 
move . w 
add.b 



endm 



ipcr. idaca. &bno 

*16.&bno 

eccnt 

idata 

(&ptr)+ ,&data 
•16, &bno 



macro 

buf_f lush &pcr. idata. wnask 

c^p. i * $80000000, imaak 

beq. s Scont 

move.! idata. Uptr)* 



datas*pcr** 
bno*«16 



mask-8000000? 

if buffer empty continue 

■pcr**»data 



endiri 



WO 94/23335 



PCT/GB94/00677 



778 - 



Engineering: Kl ;cs Cede :CcrrpPict : Backwjrc.c 



• © Ccpyr icr.; 1??3 KLrCS Unurec 
■ All r;ghts reserved. 

• 
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Extra last BacJrward\convolver 

New wavelet coeffs : 3 S 1 1* 1 2 1. 11 

Optimised tor speed: 
dim - False 
sre/dst octave == 0 



•deiir.e BvdSO < ad(±r 0 . dAG . dAH . dBH ) \ 
vs» (short 'laddrO; \ 

dAG a -V; \ 
dAHs v; \ 
ZBHz v«l; \ 

■dafir.e BwdSl i addrl . addrO. dAG. dAH, d£H) \ 
vr*isr.crt addrl; \ 
dBH- - v>>1; \ 
dAG*« v*iV3»v<<l); \ 
dAH* e v* ( vs<<sl ) : \ 
•(short * )addrO-dBH>>l; 

'define Bvd2 I addr 2 . dAG . dAH. dBG. dBH) \ 
vs* (short Maddr2; \ 
dBG- -v; \ 
dBH- v; \ 

dAH*r v*)vs=v<<1); \ 
dAG*» v*)vs<<3l); 

'define Bwd3 ( addx 3 . addr2 . addr 1 . dAG . dAH . dBG . dBH ) \ 
v»* I short *)addr3; \ 
dAH*» v; \ 
dAG* s v; \ 

dBG** v*(V3=v<<1): \ 
dBH-* v :v3<<=1) ; \ 

short ' )addrl« idAK-l)>>2; \ 
•(Short * ) addr2 « tdAG-1 ) >>2 : 

wdeiine fiwdO ( addr 0. dAG. dAH. dBG. dBK) \ 
vs» (short •JaddrO; \ 
dAGs -v; \ 
dAH- v; \ 

dBH** v*<V3»v<<l); \ 
dBG** v*(vs««-l); 

tdefine Bwdl (addrl. addrO . addr 3 # dAG, dAH. dBG. dBH) \ 
v»* (short •) addrl; \ 
dBH+s v; \ 
dBG* s v; \ 

dAG* a v*(vs-v<«l); \ 
dAH** v*(v9«««l>; \ 
•(short • ) addr 3* (dBH*l ) >>2; \ 
•(short • )addr0-<dBG*l)>>2; 



•deiir.a 5vd£2 '2ttzZ . iAC. dAH, iSHJ * 
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vs'ishcrt *iaddr2; \ 
d£Hs vsrvccl; \ 
dAH* s v~ ( vs*v<<1) ; \ 
dAG*» •/♦(vs<<*l); 

■define Bv<ii3 . addr3 , addr2. addrl.dAC.cAH.dBH} \ 
vs^i short *idddr3; \ 

dAH* • v; \ 
dAG* = V; \ 

dBH-s v*(vs=v<<l); \ 
dBH-» v* ivs<<all ; \ 
•(short • )addrl»idAH*l)>>2; \ 
•(short • )addr2s(dAG*l)»2; \ 
•(short • J addr3=dBH»l; 

•define Bvd (base . end. inc) \ 
addrOabase: \ 
addr3=addr0-(inc>>2>; \ 
3ddr2»addr3- (inc>>2); \ 
addrl«addr2- tinc»2); V 
BwdSOfaddrO.dAG.dAH.dBH); \ 
addrl** inc: \ 

Bwd£l (addrl. addrO, dAG, dAH. dBH); \ 

addr2*» inc : \ 

while (addx2< end) { \ 

Bwd2 <adcir2.dAG,dAH,dBG,d3H); \ 

addr3*«inct \ 

Bwd3 (addir3.addr2.addrl.dAG.dXH.dBG.dfiH); \ 
oddxO*»inc; \ 

BwdO (addxO . dAG , dAH. dBG , dSH) ; \ 
addr l*=inc; \ 

Bwdl (addrl, addx0.addr3. dAG. dAH. dBG. dBH) ; \ 
addx2**inc; \ 

} \ 

BwdE2(addr2.dAG,dAH,dBH>; \ 
addr3*sinc; \ 

BwdE3 (aidd*3.addx2. addrl, dAG, dAH. dBH) ; 

^define BudS0r2 (addrO.dAG.dAH. dBHi \ 
v»* (snort *>addrO; \ 
dAG* 0? \ 
dAH« vr \ 
d&Hs v; \ 

•define Bwd£lr2 ( addrl , addrO . dAG. dAH. dfiH) \ 
vs* (short •) addrl; \ 
dBH*x v>>2; \ 
dAG** v; \ 
dAH— v«lr \ 
•(short - UddrOadBH; 

•define Bvd2r2 (addr2 . dAG, dAH. dBG, dBH) \ 
vs»( short -)addr2; \ 
dBG- 0; \ 
dBHe v r \ 
dAH*» v; \ 
dAG* a v«l; 

#define Bwd3r2 (addr3 . addr2 .addrl . dAG, dAH. dBC, dBH) \ 
vs # ( short *)*ddr3; \ 
dAH*. 0; \ 
dAG*» v; \ 
dBG*» vr v 
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dSH-r v<<1; \ 

• sr.cr: • : ad&rl -dAH>>l. . 
' s.ncrt * : addr2»dAC>>l ; 

•define SvdOr2 ! addrO . dAG . ciAH. dBG. dEH) \ 
snore ':addrO; \ 
dAG* C. \ 
dAH = v; \ 
dBH-= v: \ 
dBG-* *<<1; 

• define Bvdlr2 (addrl . addrO. addr3,dAG.dAH.dSC;,dBH) v 
v=* (shore * ) addrl; \ 
dBH- » 0; \ 
dBG* = v; \ 
dAG** v; \ 
dAH-fi v<<1; \ 
•(shore " > addr3»dBH>>l; \ 
•fshcrt • ) addrO=dBG»l; 

^define BvdE2r2 (addr2.dAG.dAH.dBH) \ 
vs«ishcrt •iaddr2; \ 
dBHc v: \ 
dAH*» v: \ 
OAG*» V<<1; 

•define Bvd£3r2 ( addr3 , addr2 . addrl, dAG, dAH. dBH) \ 
v»* (short *»addr3; \- 
dAH** 0; \ 
dAG** V; \ 
dBH-* v; \ 
dBH-* v<<1; \ 
•(short *)addrlrdAH»l; \ 
* (short • ) addr2sdAG>>l; \ 
•(short *)addr3*dBH; 

♦define Bwdr2 J base , end. inc) \ 
addrO=bas«; \ 
addr3=addr0- ( inc>>2) ; \ 
addr2aaddr3 - ( inc>>2 ) ; \ 
addrl=addr2- ( inc>>2 ) ; \ 
BwdS0r2iaddr0.dAG.dAH.dBH); V 
addrl*=inc: \ 

EvdSlr2iaddrI.addrO.dAC.dAH.dBH); \ 

dddr2-=inc; \ 

while taddr2<end) { \ 

Bwd2r2 (addr2.dAG.dAH.dBG.dBH); \ 

addr3*aine; \ 

Bwd3 r 2 ( addx3 . addr2 '. addrl. dAG. dAH. dBG , dBH) ; \ 
addr0*»inc; \ 

Bwd0r2 laddrO.dAG.dAH.dBG.dBH): \ 
addrl* =inc; \ 

Bwdlr2(ao^irl.addr0.addr3.dAG > dAH.dBC*dBH); \ 
addr2+*ine; \ 

) \ 

Bvd£2r2(addr2.dAG.dAH.dBH); \ 
addr3-*inc; \ 

B voX3 x2 I addr 3 . addr 2 . addr 1 , dAG. dAH, dBH) ; 

•define BvdS0r3 (addrO.dAG.dAH.dBH) \ 
va* (short *)addr0; \ 
dAG* 0; \ 
dAH» 0: * 
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-define 5vdSlr3 f addrl . addrO, d*G, dAH. dflH ) \ 
vr«! short m addrl; \ 
dSH- = v>>>; \ 
dAG*s v: 
dAH-T v; \ 

•(short • ) addrO=dBH<<l; 

• define Ewd2r3 i addr 2 . dAG. dAH. ci£G. dBH) \ 
v=*(shorz *)addr2; \ 
dBG* Or \ 
dBHe 0; \ 
dAH- = v; \ 
dAG* « v; 

■define Bwd3r3 (addr3 . a dor 2 . addrl. dAG . dAH, dBG. dBH) \ 
v** {short *>addr2; \ 
dAH* ■ 0; \ 
dAG** 0: \ 
dBG* a V; \ 
dBH v; \ 

•(short * ) addrl = dAH; \ 
•(short •)addr2«dAC; 

'define Bvd0r3 (addrO. dAG. dAH. dBG. dBH) \ 
vc - (short •JaddrO; \ 
dAG* 0; \ 
dAH* 0; \ 
CBH*» v; \ 
dBG** v; 

vdefine Evdlr3 (addrl , addrO. addr3 . dAG, dAH, dBG. dBH J \ 
v=» (short •) addrl; \ 
dEH*» 0; V 
dBG*s 0; \ 
dAG+s v; V 
dAH— v; \ 

•(short *>addr3*dBH; \ 
•(short •)addr0»dBG: 

-define Bwd£2r3 (addr2 .dAC. dAH. dBH) \ 
ve- (short *)addr2: \ 
dBH= v»l; \ 
dAH*« v; \ 
dAG** v; 

•♦define BwdE3r3 (addr3.eddr2,addrl.dAG l dAH.dBH) \ 
v«" (short *)addr3; \ 
dAH** 0; \ 
dAG** 0; \ 
dBH-* v; \ 
dBH-* v; \ 

•(short *)addrl»dAH; \ 
•(short 'Jaddr2»dAGi \ 
•(short • ) addr3»dBH«lj 

♦define BvdrJ (base. end. inc) \ 
addr0»ba»e; \ 

addr3=addr0-<inc»2)i \ 
addx2»addr3- (inc»2J ; \ 
addrl »addr2- (inc»2) ; N 
BvdS0r3faddr0.dAC,dAH.dBH>r \ 



WO 94/23385 



PCT/GB94/00677 



- 782 - 



^ Engineering: Klic*Ccde :CcmpFict : Bacxward. c 

addrl^ir.c; \ 

BwdSlr3 (addrl. addrO.dAC.dAH. dBHi ; * 

addr2- = ir.c; \ 

while ta<idi2<endl ( * 

E wd2 r 3 I dddr 2 . dAG . dAH . dBC . dBH ) ; * 

addr3-«:nc: \ 

Evc3r3 iaddrJ. addr2 . addrl . dAG. dAH. dSC. <2fiH> ; > 
addrO*=inc; \ 

EwdOr3 taddrO.dAG.dAH.dBC.dBH) ; \ 
adarl**inc: \ 

Bwdlr3 iaddrl.addr0.addr3.d*G.dAH.dBG.dBH) ; \ 
addx2**inc; \ 

) \ " 

EwdE2r2 ( addr2 . dAG. dAH. dBH» ; \ 

addr3*=inc: \ 

EwdE3r3 (addx3. addr2 . addrl . dAG. dAH. dBHI ; 

extern void F AST BACKWARD! char -data, long incl. long loopi. long inc2. char *end2> 
extern void HAARBACXWARDtchar -data, long incl, long loop 1. long inc2. long loop2> 
extern void HAAKTOPBWD (char 'data. long height, long width); 
/■• extern void HAAJvXTOP3WD(char •data, long area);*/ 

void FasterBackvardlchar -data, long incX. long endl, long inc2. char •end2> 

{ register short v. vi. v3, dAG, dAH. dBC, dBH, inc; 
register char 'addrO. •addrl, *adcU2. -addr3, *end; 
char -base; 

incsincl : 

tor tbase»data; base<end2;base*»inc2) { 
ends ba a e * e ndl ; 
Bwd(baie. «nd, inc) ; 

) 

) 

extern void TOPBWDichar "data, char 'dat. long sixe_l. long sixe_0>; 

void TeatTopBacJcvardOhort # deta.int si2e(2].int cct_$rc) 

int cct. area»si2e(0] •si2«(l)«l: 
short width=size ( 0) <<X; 

char •top»ar«a*(char »>data. • laft«width* (char -Jdata: 
for toct*ocr_src-l;oct>0;oct — ) { 

1Cn ' C r ^::;;:?Si«^? S ^:rine«2; /• co! and xo« increment „ t 

FASTBACXWARD ( (char *> data, rinc4 , area- < rinc« 1 ) . cine . left) ; 
FASTBACKWARJD < l char • ) data, cine* . width- <cinc«l ) - nnc . top) ; 

FasterBacJcvardt (char • )data. aizefO] <0. area- (size (0 ]<<2 ) . 2 . left ) ; 
FasterBac)cvard((char •)data.8,width-4,size[0)<<l ; top); / 
TOFBWDMchar Mdata,lchar • Jdata, siiefOJ . 3i2e [1 ] ) ; 

) 

void TestBackvardfdata.siza.oct.src) 

short • data i 

int sizel21, oct_src; 

* int oct. area»sire|0] *3i2e(l)«l; 

short vidth=ai2et0)«l: nHjtI , 
char •copsarea**ch«r *idata. • left.widr.h* 'char Mdata. 
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tcx <cc: =oct_srr - 1 : ccc>»0; ccc-- ) ( 

-cr.g c,incs2<<cct. cinc4=cmc<<2. 

r inc = siie 1 0] <<oc:*l. nnc4rrinc<<2; /• col and row increments in c 

: ssterSackvardl I char Mdata. rinc*. area- t rinc<<l i , cine, left ) ; 
" aszeizackwzzd i :cnar • icaca. cmc4 .width- (cinc<<i) . rinc. top) ; 



•/cid 3ackvard3511 (data. size. oct.src) 

short 'data: 

inc size(2}, cct_arc; 

( 

inc oct. areassiie [0] •si2« (1)<<1; 

short vidth=sue(0)<<l; 

char •cop»area-*<char Ndata. • left*width* ( char -)data; 

f or toctsoct_src-l;oct>0:oct--) { 

long cinc=2<<oct. cinc4=cinc<<2 . 

r inc=aize (0] <<oct*l, rinc4=nnc<<2; /* col and row increments in t 



BACK3 51H (char •) data, rinc4 . area- irinc«i) . cine, left); 
BACK3511 ( (char • ) data. cine 4 , width- ( cinc<<l I , rinc, tcp) ; 

) 

BACK3 511V( (char * Idata. size (0]«3. area- (size CO] «2) . 4. left) ; 
BACX3511H( (char • Jdata, 8 , vidth-4 , aize (0 ] «1 . t op) ; 
/■ TOPBWDUchar *)data,(char • Jdata, aiz« (1 J , size [0 J ) ; •/ 

) 
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£ Tcpynght 1993 KLICS Limited 





a;: riches 


reserved- 


• 


Wr t e~ cy 


Adrian Lewis 


• 

• 


680X0 3511 


Backward code 






9 5 3 




become 3 


5 1 1 




aeg 


'klics' 




macro 






BwdStarcO iaddrO. idAC. idAH. tdBH 




move . w 


UaddrOJ.tdAH ; dAHs ■( shore 




move . w 


4dAH,4dAG ; dAG*v 




neg . w 


4dAG ; dAGs -dAG 




move . w 


4dAH,tdBH ; dBHsv 




acd.w 


idBH.idBH ; dBH«v<<! 




endm 




macro 



EwdScarti &addrl , iaddrO. fcdAC* 4dAH, &dBH 



move . w 

move .w 
asr .w 
add.w 
add.w 
sub . w 
add.w 
add.w 
add.w 
sub. w 
asr .w 
move . w 



(fcaddrl) .do 
d0,dl 
• l.dl 
dl. tdfiH 
d0.4dAC 
dO,4dAH 
dO.dO 
dO.idAC 
dO.dO 
dC,4dAH 
-l.tdSH 
&d£H. (4addr0) 



v«*( shore *)addrl 
vs»v 

V93V>>1 

dBH*« v>>1 

dAG*»v 

dAH-aV 

v<<t\ 

dAG~«2v 

v<<»1 

dAH-=4V 

dBH>>»i 

•(short •iaddrO=dBH 



endm 



macro 

BwdZven &addr2 . 4dAG t 4dAM, 4d£G , tdBH 



move . w 


[ iaddr2 ) ,d0 


; v*"l short *)addx2 


move . u 


dO,4dBH 


; dB>Uv 


move . w 


dO.tdBC 


; dBGrv 


nag.w 


4dBG 


■ dBG«-v 


add.w 


dO.tdAM 


■ dAH*»v 


add.w 


dO,4dAG 


dAG*av 


add.w 


dO,dO 


2v 


add.w 


dO.tdAH 


dAH*.v 


add.w 


dO.dO 


2v 


add.w 


dO,4dAC 


dAH*»v 


endm 






nacre 







/-t inrTiTi rrr rurn /m n r 
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BwdOdd 


i*iddr3.iaddr2 


ifiddxZ.&dAG, idAH, idBG , icBK 


move . v 


iiaddr3).i0 


; vs» .'short • i addr2 


add.w 


dO. tdAH 


; dAH*=v 




add . w 


dO . idAG 


: dAG-sv 




add. w 


dC . idBG 


: OBC-*=v 




sub. w 


dO . idBH 


; cBH-rv 




add. w 


dO.dO 


; 2v 




add* w 


dO, idBG 


; dBC*=v 




add.w 


dO.dO 


; 4v 




suh . w 


dO . idBH 


; dBH-=«v 




asr . w 


<*2.&dAH 


; dAH>>=2 




move . v 


idAH, (taddrl) 


; • (shore 


*>addxl=dAH 


asr . w 


*2.idAG 


; d^G»=2 




move . v 


LrtAG, (fcaddr2) 


; * < short 


•)addr2»dAG 


endnt 









macro 
£wdtad2 


&addr2 , idAG, tdAH. &d3H 


move . w 


(iaddr2) .dO 


; vs- (short - )addr2 


add.w 

add.w 

add.w 

move.w 

add.w 

add.w 

add.w 


dO.fcdAK 

dO . idAG 

dO.dO 

dO.tdBH 

dO.&dAH 

dO.dO 

dCtdAC 


; dAH*»v 
; dAG**v 
* 2v 

; dBH.2v 
; dAH**2v 
; 4v 

; dAG«>«4v 


erxAn 






macro 
Bwd£nd3 


&addr3 , &addx2 , taddrl . idAG, SdAH, &dfiH " 


move. w 
add.w 
add.w 
lsl.w 
suo.v 
asr .w 
move . w 
asr.w 
move . w 
asr . w 
move . w 


Uaddr3),d0 

dO.idAH 

dO,*dAC 

*3.d0 

dO . idBH 

•2.fcdAH 

tdAK. (iaddrl) 

* 2, idAG 

idAG, (iaddx2 J 

»l,idBH 

idBH. ftaddr3) 


; v.* (short *)addr3 
; dAH**v 
; dAG^»v 
; 8v 

; dBH-*8v 
; dAft»>2 

; •( short *)addrl=dAH 
; dAC>>-2 

; * I short •)addr2sdAG 
; d&H»sl 

; •( short *)addr3=dBH 


endm* 







macro 






Bwd 


iba at, 4 and, tine 




movea . 1 


ibase.aO 


; addrOsbase 


raove. 1 


tinc.dO 


; dO sine 


aar. 1 


#2,d0 


; dO«lnc»2 


movea • 1 


a0.*3 


* addr3»addr0 


suba.l 


d0.a3 


• addr3-»(inc>>2) 


movea . 1 


*3,a2 


addr2saddr3 


suba.l 


d0,a2 


addr2-»(inc»2) 


movea . 1 


a2.al 


addrl»*ddr2 



ciiRcrmnr shppt mn r tki 
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suta . 1 


dO. al 






: addrl - = 1 mc>>2 ) 


EwdScarcC 


aO . d4 . dS.d* 1 






: 5wdScarc0iaddrC.dAG.dAH.dLBH) 


adda ♦ i 


* inc . a 1 






; addrl *= inc 


SwdStar: I 


al.a0.d4.d5.d7 






r BwdStajrtl I addr l,add^0. dAG. dAH.dBHf 




& inc. a2 






addr 2 * = inc 


Bwc£ven 


a2.d4.d5.d6.d7 






: Bvd£ven<adcU2.cUC.cLAH.dBC.dBH» 


adda . 1 


* inc. a j 






• addr3*=inc 


5wdOdd 


a j . al . al . d4 , d5 


d6 


. d" 


BwdOdd ( addr3 . addr 2 , addrl . dAG . dA* . dBG 


adda. 1 


& inc . aO 






addr0*»inc 


cwd£ven 


aC,d6,d7,d4.d5 






BwdEven i addrO . dBG , dfiH , dAG , dAH ) 


adda. 1 


4 inc, a 1 






addrl ♦sine 


cwdOdd 


al.aO, a3.d6,d7 


d4 


d5 


BwdOdd < addrl . addrO . addr 3 . dBG , d£H . dAG 


adda . 1 


&inc . a2 






addr2*=inc 


crnpa. 1 


a2. &end 






addr 2 < end 


oo/t .s 


9 do 






while 


Bwd£nd2 


a2.C4,d5.d7 






BwdEnd2 i addr 2 , dAG , dAH , dfiH ) 


adda.l 


&inc . a3 






addr 3** inc 


5wdEnd3 


a3,a2, al,d4.d5,d7 




BwdLnd3 ( addr 3 . addr 2 , addrl . dAG , dAH , dfi 


endm 











Back2 


511 FUNC 


EXPORT 




?S 


JITCORD 


e 




data 


DS.L 


1 




inci 


DS.L 


1 




endl 


DS.L 


1 




inc 2 


DS.L 


1 




end2 


DS.L 


1 






ENDS 








link 


a6, #0 


; no local variables 




movem.l 


d4-d7/a3-a5.-<a7) 


; score registers 




move. 1 


PS . incl ( afi ) . d3 


; inc* incl 




mov«A . 1 


PS. data <a6) ,a5 


; bese^data 


9 do 


move a . l 


a5.a4 


; end»base 




adda. 1 


PS. endl ia€) . a4 


; end* » endl 




Bvd 


a5,a4.d3 


; Bwdfbaae , end. ancl 




adda . 1 


PS. inc2 (a€) .aS 


; base*»»inc2 




cmpa . 1 


PS. end2 (a6) ,a5 


; snd2:>base 


• 


blew 


edo 


; for 




movem. ; 


(a7) *.d4-d7/a3-a5 . 


; restore registers 




unik 


a6 


; remove locals 




rts 




; return 




EKDFUNC 







macro 
BvdStartVO 



iaddrO , idAC. I dAH. AdBH 



move. 1 
movt . 1 
neg . 1 
move . 1 
add.l 



(iaddrO) , (dAH 
4 dAH, idAG 
4 dAG 

tdAH.&dBH 
idBH, idBH 



dAHa* (shore •)addrO 

dAG-v 

dAG* -dAG 

dBH»V 

dBHsv«l 



endn 



macro 

BvdScartVl iaddrl . AaddrO , (dAG. A dAH . 4dBH 
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move . I 


( iaddrl i . dO 


; •/=• (short •)addxl 


move . 1 


dO.d. 


; vs = v 


asr . 1 


• l.dl 


; vssv>>1 


add. 1 


dl.&dBH 


; dSH*s v>>! 


oUU • * 


dO , IdAC 


• dAG**v 


sub. 1 


dO . 4dAK 


■ dAH-=v 


add.l 


dO.dO 


• v«sl 


*HH 1 
oOU • I 


dO , &dAG 


• dAG*=2v 


-,AA 1 


dO,dO 


V<<»1 


tl1 h 1 

5UIJ . 1 


dO, idAH 


■ dAH-«4v 


dSI . 1 


ffl.&d&H 


dBH>>«l 




idBH.tdBH 


shift word back 


asr ■ w 


•l.&dBH 


dBH>>sl 


niove * 1 


&dBH. (AaddrO) 


M shore # )addrO=dBH 


endm 






macro 






BvdEvenV 


&addr2 . idAC . idAH . 4d3G , 4dBH 


move. 1 


(&addr2) ,d0 


•/=• (short *)addr2 


move. i 


dO . tdBH 


dBH»v 


move. i 


dO.&dBG 


dBG»v 


nec;. 1 


tdBG 


dBG«-v 


add.l 


dO . idAH 


dAK*»v 


add.l 


dO . tdAG 


dAG*»v 


add.l 


dO.dO 


2v 


add.l 


dO.idAH ; 


dAH-«v 


add.l 


dO.dO ; 


2v 


add.l 


dO.idAG ; 


dAH~»v 


endm 







macro 

BwdOddV 

move . 1 

add.l 
add.l 
add.l 
sub.l 
add.l 
add.l 
add.l 
sub.l 

asr.l 
Isl.w 
asr.v 
move. 1 
asr. 1 
lsl.w 
asr.w 
move. 1 

endm 



&addr3 , £addr2 . iaddrl . fcdAG. fcdAH . AdBG.^dBH 
<iaddr3).d0 ; v«M short *)addr3 



dO.idAH 

dO,idAG 

dO.tdBC 

dO.tdBH 

dO,dO 

dO . tdBG 

dO,dO 

dO.fcdBH 

#2 t idAH 
#2, idAH 
#2 , tdAH 
idAH, Uaddrl) 
#2,fcdAG 
#2,fcdAG 
#2.idAC 
fcdAC, (4addr2) 



dAH*«v 
dAG*»v 
dBC*»v 
d£H-«V 
2v 

dBG**v 
4v 

dBH-*4v 
dAH»«2 

shift word back 
dAH>>»2 

•(short •Jaddrl-dAH 
dAG»*2 

shitt vord back 
dAC»»2 

•(short •)addr2sdAG 



macro 
Bwd£ndV2 

m?v; 1 



fcaddr2 , tdAG, idAH. idBH 

{ t addr2 > . dO : *••» • 'short ■ ) addr2 
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ace . 1 


dO.idAH 


: dAH * = v 


aCt . 1 


dO. AdAC 


; dAG*=V 


add. 1 


dO.dO 


; 2v 


rr.ove . 1 


dO.idBH 


: dBHs2v 


add . 1 


dO,idAK 


: dAH»>2v 


adc . I 


dO.dO 


: 4v 


dCC . . 


dO.&dAG 


: dAC*=4v 








macrc 






Bwd£ndV3 


&addr 3 . &addr2 , taddrl . tdAG. &dAH. idBH 


move . 1 


<&addr3 ) , dO 


vs'i short 'Jaddri 


add.l 


dO.idAH 


dAH*«v 


add.l 


dO.idAG 


dAG-.v 


lsl . 1 


O.dO 


8\* 


sub.l 


dO.&dBH 


dBH-=ev 


asr.l 


•2,idAH 


dAH>>=2 


lsl.w 


#2. tdAH 


shift word back 


asr . w 


•2 , 4 dAH 


dAH>>»2 


move . 1 


idAH. Uaddrl) 


* {short •iaddrl*dAH 


asr. 1 


#2.idAG 


dAG>>»2 


lsl.w 


#2.4dAC 


shift word back 


asr.v 


#2.4dAC 


dAG>>»2 


mov« . 1 


4 dAG , (iaddr2) 


•(short •)addr2»dAG 


asr. 1 


•l.idBH' 


dBH>>»l 


lsl.w 


*l.idBH 


shift word back 


asr.v 


•l.&dBH ; 


dAH>>«2 


add.l 


tdBH , LdBH 


dBH<<»l 


move . 1 


&dBH. U addr 3) 


•(short •)addr3*dBH 


endm 







addrO«baae 

dOsinc 

d0*inc>>2 

addx3=«ddr0 

addr3*« ( inc>>2) 

addr2»adjdr3- 

addr2-« ( inc>>2» 

addrl»addr2 

addxl-« ( inc>»2 ) 

BvdStartO(addrO.dAG.dAH.dBH) 

addxl*»i&c 

EvdSt art 1 1 addr 1 , addrO . dAG , dAH , dBH ) 
addx2+=inc 

BvdEven I addx2 . dAG , dAH . dBG . dBH ) 
addr3**inc , _ 

BvdOdd ( addr3 . addr 2 , addr X . dAG . dAH , dBG 
addrO*«inc 

BvdEven I addr 0 » dBG . dBH . dAG , dAH ) 
addrl+»inc 

BvdOdd < addxl . addrO . addr3 . dBG . dBH # dAG 

addr2+«inc 

addx2<end 

while 

BvdEnd2 {addr 2 . dAG. dAH. dBH) 
addr:-*ir.c 



macro 




BwdV 


ibase.iend. iinc 


:nov«a. 1 


Lbase.aO 


move . 1 


iinc.dO 


asr.l 


*2, dO 


movea - 1 


e0.a3 


suba . 1 


d0.a3 


movea. 1 


a3,a2 


suba . 1 


d0,a2 


movea. 1 


a2.al 


suba . I 


dO.al 


BwdStartVO 


a0.d4 f d3.d7 


adda . 1 


&inc.al 


fiwdStartVl 


al,a0.d4. d3.d7 


adda . 1 


&inc,a2 


BvdEvenV 


a2.d4.d3.d6.d7 


adda.l 


tinc,a3 


BvdOddV 


a3.a2.al.d4,d3.d6.d7 


adda.l 


tinc.aO 


BvdEvenV 


a0.d6.d7.d4.d3 


adda. 1 


fcinc,al 


BwdOddV 


al.a0.a3.d6.d7.d4.d5 


adda.l 


fcinc.*2 


crrtpa. 1 


a2. ••nd 


bgz . s 


Qdo 


Bvd£ndV2 


a2.d4.d5.d7 
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EvcXndV3 


a3.a2.al.d4.d3 


.d7 


; EwdEr.dJ i acdr 3 . adcr2 




en£m 










SackJSllV FUNC 


IX PORT 








?S 


RECCRD 


0 








data 


DS.L 


1 








incl 


DS.L 


1 








endl 


DS.L 


1 








inc2 


OS . L 


1 








end2 


DS.L 


1 










EMDR 














a6, «0 






no local variables 




mo vein. 1 


d4-d7/a3-a5,-<a7l 




score registers 




move . 1 


FS.incl(a6).d3 






inc=incl 




movea.l 


PS.data(a6).aS 






basasdata 


3 do 


movea.l 


a5,a4 






end»base 




aAA* . i 


PS.endl (a6) ( a4 






end* sendl 




BwdV 


a5,a4,d3 






Bwdlbaae, end. inc) 




add* . 1 


PS.inc2<a€) ,a5 






base<»*inc2 




cmpe. 1 


PS.end2(a6> .a3 






end2>base 




blew 


6 do 






for 




movent. 1 


(a7)*,d4-d7/a3- 


aS 




restore registers 




unlk 


a6 






remove locals 




rts 








return 




DJDFUNC 












macro 












BwdStartH 


taddrR, SA, 4C 










move . 1 


(fcaddrR)*,4A 


* 


IHIG-Mlong *>addrJi 




move. 1 


4A.dO 




A-1H1C, 


dO.lHIG 




move . 1 


tA,4C 




A.1H1G. 


dO.lHIG. C=1H1C 




add.w 


4A,dO 




A-1M1G. 


dO-lH2G. C=1H1G 




add.w 


dO.iA 




A-1H3G, 


dO=lH2C. C*1H1G 




add.w 


4A.dO 




A=1H3G, 


dO=lH$C, C=1H1C 




swap 


4A 




A.3GH1, 


dO»lH50. C*1H1G 




sub.) 


d0.4A 


» 


A»AAAA, 


dO.lHSC, C=1H1G 




endra 











macro 
EwdCycleH 

move. 1 

move. 1 

add.l 

move. 1 

add.l 

add.l 

move . 1 

move.w 

move.w 

move.w 

move.w 

swap 

swap 



iaddrK. 4addrW.tA.4B.4C 



UaddrK)-,4B 

LB. 60 

dO,dO 

dO.dl 

4B,dO 

dO.dl 

4B,d2 

dl.d2 

4B,dl 

dO.£B 

dl.dO 

4B 

dO 



1H1G-M 
B.1H1G. 
BslHlG. 
B-1H1G. 
B»1H1C. 
BrlHlG, 
B.1H1C, 
B*1H1G, 
B»1H1G, 
B»1H3G, 
B-1H30, 
B=3C1H. 
B.3G1H, 



long *)addrR 
dO=lHlG 
dO«2H2G 

dO«2H2G, dl»2H2G 
dO*3H3fc, dl*2H2C 
dO»3H2G. dl=5H5G 
dO»3H3G, dl»3H3G. 
dO»3H3C. OU-5H5C. 
dO»3H3C, dl.SHIG, 



dO»3H3G. 
dO*3HlG. 
d0.3HlC, 
dO=lC3H. 



dl>3HlC, 
dl*5HlC, 
dl»5H!C. 
dlaSHlC. 



d2slHlG 
d2.1H5G 
d2=lH5C 
d2«lH3G 
d2=lH3G 
d2»lKSG 
d2=lH5G 
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sub. 1 
add.l 
add. 1 



d2.4B 
dO.lA 
dl.tA 



b=3cih-:hsg 

A*=1H3G 

a»»5c;h 



asr.w *2.&A 

move -V &A. iC 

isr.l *2.iA 

move . 1 *C. i&addrwt* 

move . * tA. iC 

endm 



A0>>=2 

C complete 

Al>>»2 

* I long • J addrWaDD 
C=A1XX 



macro 






BvdtndH 


fcaddrR. ;addrW, tA. &B. &C 


move . 1 


(iaddrR)*,dO 


; 1H1G« # (lone; •) addrR 


move .w 


d0.d2 


; d2alG 


lsl.v 


»2.d2 


; d2s4G 


neg.w 


d2 


; d2=-4G 


9WAp 


dO 


; dOslGlH 


add.w 


d0.d2 


; d2*MH 


move . 1 


dO.dl 


• dO.lClH, dlslClH 


add. v 


dO.dl 


• dOslGlH. dl=lG2H 


add.w 


dl . dO 


- dO=lC3H, dI*lC2H 


add.w 


dO.dl 


• dO*lC3H. dl=lC5H 


swap 


dl 


dO«lG3H # dlaSHlG 


add.l 


dO.&A 


A~»1C3H 


add.l 


dl. iA 


A*»5H1C 


aar .v 


42. 4A 


Al>>»2 


move . w 


iA.AC 


C complete 


asr . 1 


«2.4A 


A0»«2 


move . 1 


tc. uaddrwi* 


•(long •>addr>f*C 


move . w 


d2,4A 


A-D1D2 


move . 1 


LA. (iaddrVh * 


•(long MaddrW»A 


endm 







macro 
fiwdH 

movea . 1 

movea . 1 

5wdStaxtH 

BwdCycleH 

BwdCycleH 

cmpa.l 

bat .9 

BwdEndH 



tbaae.ter.d. tine 

ifcaaa.aO 

aO.al 

aC.d3,d3 

a0,al,d3.d4.d5 

a0.al.d4.d3.d5 

aO. tend 

Odo 

a0.al,d3,d4,d5 



endm 



addrR*base 

addrWcaddrK 

BwdSt art ( addrR. A. DDJ 

BvdCycle I addrR. eddrvc, A. B.C) 

BvdCy c 1 • I addrR . addrW . B. A. C ) 

addx2<end 

while 

Bwdtod t addrR , addrW, A . B . DD) 



Bac*3511H FUNC 



PS 

data 

inci 
endl 
inc2 
end2 



RECORD 

DS.L 

DS.L 

DS.L 

OS.L 

DS.L 

DTOR 

link 



EXPORT 
8 



a*, an 
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movem. 1 


d4-d7/a3-a5 


.-<a?) 


; score registers 


move . 1 


PS.incl :a6) 


dJ 


; ir.c=incl 


move a. 1 


PS .data (a6 ) 


aS 


; baae«data 


rovea . 1 


a5. a4 




endabaie 


adda. 


PS.endl (a6l 


a4 


; end*=endl 


5wdH 






; Bwd( base, end, inc) 


adda. I 


PS. :nc2 Ia6) 


aS 


; base*=inc2 


cmpa . 1 


PS.end2 ia6) . 


a5 


; end2>bas© 


blew 


edo 




; tor 


movim. 1 


(a7)*.d4-d7/a3-a5 


; restore registers 


unlR 


a6 




remove locals 


res 






; return 


ZNDFUNC 








DTD 
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• £> Copyright 1993 KLICS Limited 

• Ail ngnts reserved. 

• Written by: Adrian Lewis 
• 

Full still/video Knowles-Lewis Image KlicsEncodc System utilising KVS propert: 

• ar.a delta-tree coding 

Recoded and re- rat ional ised (Stand alone version) 

■ ir.cluce <FijtMath.h> 

•include -Bits3.h* 

* include •Klici.h* 

•include -KlicsHeader .h' 

•include •xlicsfcncode.h* 



■include <Hath*h> 

/• If bool true the negate value V 

•define negif (bool. value) i (bool >?-( value) : (value) ) 
•define aba (value) oegif (value<0 . value) 

extern void HaarForvardU ; 
extern void DeufcrtForvaxdt ) ; 

/* use the bit level file macros (Bics3.h) 

buf .use;*/ 

/• Huffman encode a block •/ 
fdefme Huf f EncLev( lev, buf ) \ 

Huf fEncode(lev(0] .buf ) ; \ 

Huf f Encode ( levfl] , buf ) ; \ 

HuffEncode(lev(2].buf); \ 

Huff£ncodeUevr3) ,buf ) ; 

/• fixed length encode block of integers •/ 
-detine lnt£ncLev( lev, lpf.bit « . buf ) \ 

intlncodedevlO] .lpf.bits.buf ); \ 

IntEncodedevCl] . lpf.bics.buf ) ; \ 

Int£ncode(lev(2 J . Ipf.bits ,buf ) ; \ 

Int Encode ( 1 ev [ 3 ] . lpf .bit s , buf ) ; 

/• Define write a zero •/ 
•define TokenO \ 
buf.winc (buf ) ; 

/• Define write a one •/ 
•define Tokenl \ 

buf. set (buf ) ; buf. vine (buf ) ; 

/• write block for date and update memory 

• define DoXfer(addr. pro, lev, dst, mode, oct .nmode, buf ) \ 

Huf fEncLev(lev,buf ); \ 

PutDetataddr.pro.det); \ 

mode (oct ] *oct » ■ 0 ?M-STOP : nmode ; 

Function Mar*: Cuintis* 



RiiRsrmnr shfft /rihf ok\ 



WO 94/233*5 



PCT/GB94/0W77 



- 793 - 



Engineering: KlicsCode :ConpPic: : KlirsE.nc. c 

description: H.261 style quantizer 
Argument s: new. old - in^ge blocks 

pro, lev - returned values 

q - quantizing divisor 
Keturns: lev is all zero, quantized data (pro) & level (lev) 



Boolean Ouantuei mt new(4J. int old(4). int pro (4 1, int Iev(4]. shore q) 

int blk. haif.q* (l«q)~lp>l; 

fcr<blk=0;blk<4;blk**) { 

mt data=new[blk) -oldfblk) f 
mag. level* aba (data) >>q; 

mag_level=mag_ievel>133?135:mag_level: 
lev [blk] .negaf idata<0,mag_level) ; 

pro(blk)=old !blk)^negif (data<0, (mag_levei«q)* (mag.level !*Q?half_q: 0) ) ; 

i 

return(pro{0)«sO &£ pxo(l]*s0 fct pro[2]r=0 pro(3]-*0); 

) 

void QuantizeLFF(int new|4],int pro|43.int levf4J. shore q) 
( 

int blk, hal£.q»(l«a)-l»l: 

fcr(blk*0:blk<4;blk**) { 
int data»nev(blk) , 

mag_level*abs- (data)>>q; 

lev[blk)snegif (data<0.mag_l«vel) ; 
pro [ blk ] a ( lev (blX) «Q> ♦nalf.q; 

) 

) 

/* Function Name: GuessOuantize 

• Description; Estimate threshold quantiser value 

• Arguments: new, old - image blocks 

q - q weighting factor 

• Returns: estimated q_consc 
•/ 

float CuesaOuantize ( int new(4).int old[4), float q) 

t 

int blk; 

float qt_ma>s0.0: 

for(blk=0;blk«4;blk*-> ( 

int i, data»abs (nev (blX) -old(blk) ) ; 
float qt; 

f or(isO:datal*0;i*+) data»»l; 
if li>0) i— : 
qt»(((3«i)-l)»D/QI 

qt_max»qt_max>qt ?qt^na> xqt ; 

} 

return (qt_jnax) ; 

} 

/♦ rune ti on Name: Int Encode 

• Description: write a integer to bit file 

• Ar;u-M£n;s; lav - integer to write new signed 
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bits - no of bics 

• / 

void i.-.t Encode ( inc lev, in: sics.euf bufi 

{ 

012 version 
ir.t : : 

for(isbits-l; i>sO; t 

if (levii;<<ii» buf.aet (buf ) ; 
buf.winc i buf 1 : 

' ) 

•/ 

/• New version 

inc i, magaabs ( lev) ; 
Boolean signs lev<0; 

it (l<<bics-l <= mag) mags ( !<<bits - 1 ) - I ; 
it (sign) buf. set I but 1 ; 
buf.winc I buf ) ; 

fort i»l<<bits-2; i!*0; i>>»l) ( 
if (mag&i) buf .set I but J ; 
bu f_ wine t buf ) ; 

)•/ 

/• Hardwire compatable version: sign mag ( lsb->msb) •/ 
inc i. mag*abs ( levi ; 
Boolean sign»lev<0; 

if (l<<bics-l <= mag) mags ( l<<bits -1 J - 1 ; 
if (sign) buf. set (buf ) ; 
buf .wine ibuf ) ; 

forUal; i;=l«toits-l; i«r.l) ( 
if (magfci.) buf .set (buf ) ; 
buf.winc (buf ) ; 

) 

) 

/ • Funct i on ' Name : Huf f EceodeSA 

• Description: Write a Huffman coded integer to bit file 

• Arguments: lev - integer value 
Returns: no of bits used 



void Huff Encode ( int lev, Buf buf) 

,•• int level =abs t lev) ; 

ii ilevel>l) buf .set (buf } ; 
buf.winc (buf > ; 

ifllevel>2 li level»=l> buf.set (buf ) ; 
buf. wine (buf ) ; 
if (level'.O) ( 

If (levcO) buf.set (buf ); 

buf. wine (buf ) ; 

if (level>2) ( 
int i; 

for (iO;i<level;i.**| ( 
buf .wine ( buf 5 ; 

) 

buf .set (buf ); 
buf .wine (buf ) ; 
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)•/ 

New versicn */ 
int level »*b3 (lev) . i; 

if (1€v€1!t0) buf _3«c (buf ) ; 
tuf__vir.c (bu: » : 
if <level!=0> i 

if (lev<0) buf.aat (buf ) ; 
buf_winc(buf ) ; 
if (level<8) ( 

while (l<level--l 

buf_winc (buf > ; 
buf_aet (buf 1 ; 
buf_winc(buf J ; 
) elae ( 

for (i»0;i<7: i**> 

buf. wine (buf) ; 
level-sB; 

for(i»l<<6;i!»0;i>>»l) { 

if (lev«Uil buf.setlbuf ) ; 
buf. wine I buf J ; 

) 

) 

} 



Function Nam: KlicsEChannel 

Deacripcion: Eneods a channel of image 

Arguments: arc - source channel memory 

dst - destination memory (and old for videos) 

oct a. size - octsvea of decomposition and image dimensions 

normals - HVS weighted normals 

lpf_bita - no of bita for LPP integer (image coding only) 

/ 

id KlicsEncY (short -arc, short •dat.int octa. int aiz*e[2].int threshfS], inc ca 

int occ. mask, x. y, sub, trap. 3tep.2-<<octa. blk[4). modef4), nz, no, base, 

int addr(4). nev[4). olc[4], pro|4), lev[4) . . seroie )»<<>. 0.0. 0); 

Boolean nzflag. noflag, origin; . , 

int bi cmask»-l<«kle ->seqh. precision -kle->frmh. quantizer 10 J-i ; 

Buf buf *tkle->buf ; 

for iy»0:y<size(l) ;y*=step) 

ror ix=0:x<3iie{0] ;x*»step) 

for (sub=0; sub<4 ; sub-*-* ) ( 

mode [oct =oct a - 1 ) »base_mode ; 

if fsub.*0> model oct =octa-l] M.LPFi 

mask«2<<oct ; 

do ( 

GetAddx(addr.x.y, sub, oct. size. mask) ; 
switch (mode [oct ) ) ( 
case H_VOID: 

GetDate laddr. old, dst) ; 

if (BlkZero(old)) mode (oct )»H_ST0P; 

else ( Dolero(addr.dst. mode, oct); } 

break; 
case M_SBlt>tH_STILL: 

CstBata laddr, new, arc) i 

m*Decide<nev); nzf lagma<=thxesh (octs-oct ) ; A ^ r ^^ m „<-n i 

if {nzflag M Ouantize (new. zero, pro, lev. kle->frmh. quantizer [octs-oct J ) 
G*^Dat s ( *ddr , eld. *i5t ) ; 
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it (BlXZerotold) ) { 
TokenO; 

mode(oct JsM.STOP; 
: else ( 

Tokenl; Toxenl: 

DoZezo ( addr, dsc .mode, oct ) ; 

• else ! 

Tokenl : ToKenO; 

DoXter ( addr. pro. lev. dst. mode. oct . H.SENDiN.STILL.buf) ; 

area*; 
case rt.SENO: 

GecDaca t addr. new, arc) ; 
GetData (addr. old, dst) ; 

nz=Dec:de (new) : nrc lag=nz<» thresh (octs -oct J ; 
if (BlkZero(old) ) { 

if (nzflag I I Quantize (new, zero, pro, lev, kle-> frnh . quant izer focts-o 
TokenO ; 

mode [oct )=M_STOP; 
} else ( 

Tckenl; TokenO; 

DoXfer (addr. pro. lev, dst. mode, oct . M.SINDIH.STILL. bu£ ) : 

1 

} else { 

int oi=Decide (old) . no»D«cid*D«lta (new, old) ; 

Boolean motion* (nz*oz) >>occ <» no; /• motion detection •/ 

no=DecideDelta (new. old) ; nof leg»no*»compaxe|octs-oct ) ; 

origin*nz<»no; 

if {(.'nof lag II motion) fct 'nzflag) { /■ was iaoflag &fc tnzfl 
if (euajitize(new.origin?zero:old,pro, lev, kle->f ma. quantizer [o 

Toktnl; Tokenl; TokenO; 

Dozero ( addr . dst , mode . oct ) ; 
) else { 

if (origin) ( 

Token 1; TokenO; 

Doxf er ( addr , pro , lev . ds t . mode , oct . m__SEND I n.STILL. buf ) ; 
) else { 

Tokenl; Tokenl; Tokenl; 

DoXfer I addr. pro. lev, dst . node, oct ,M_SEND. buf ! ; 

) 

} 

) *l*e ( . 

if ((motion II origini it nzflag) ( /• wea origan &fc nzf.a 

Tokenl; Tokenl: TokenO; 
DoZero ( addr , ds c , mode . oct ) ; 
) else ( 
TokenO; 

mode (oct l*H_STOP; 

) 

) 

) 

break; 
case M_STIIX: 

GetDaca (addr. new. arc) ; 

nz»Decide(new); nzf :ag=nz<*threshfoct s-oct 1 ; , 
if (nsfleg II Ouanti*« (new. zero, pro, lev. kle->fnnh. quant lzer (octs-oct ] ) 
TokenO : 

mode (oct ] sH.STOP; 
) else ( 
Tokenl ; 

Dc;« er lacir , pre , lav. is: , .-x.de .ret. lUSTIli. 6uf • 
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) 

break; 
case M.LPFIM.STIll: 

GetData i addr. new, srci ; 

OudncizctPF (new. pro. lev. kle->trmh .quant i zer [0 ] ) ; 
verifyDac*( lev(0] , bitmask, tmpJ ; 
Ver i fyDaca ( levf 1] . bitmask. cmp) ; 
Ver i fyData ! iev[ 2 ] , bi tmask, cmp I ; 
VerifyData-: Iev[31 .citmasx. tmp) ; 

Ir.cEncLevi lev, kle- >seqh. preci sicn-kle->f rmh. quant nar ( 0 ] . buf ) ; 
Put Data (addr .pro, dst) ; 
rr<:de(oct 1=H.0UIT; 
break; 
case M_LFFIH_SEND: 

GetData (addr ,niv, arc J ; 
GetData (addr, old. dst I : 

nc=DecideDelta(nev ( old) ; nof lag »no<s compare (oct s -oct J ; 

if (noflag) t 

TokenO ; 
) else ( 

Tokenl; 

Quantize (new, old, pro. lev. kle->innh. quantizer (0] ) ; 
Huf fEncLevdev.buf ) ; 
putData (addr. pro. dst ) ; 

J 

mode (oct )*M_QUIT; 
break; 

switch* mode [oct) ) ( 

case M.STOP: , ^ • 

S t cpcount era ( mode . oct . mask . blk . x . y , oct s ) ; 

break; 
case M.OUIT: 

break; 
default: 

DownCouncers (mode. oct. mask, blk) ; 

} while ( mode [oct]! =M_oaiT)? 

) 

) 

void xlicsEncUVlshort 'arc. short -die. ins octs.int size(2].int threshlS). inc c 

* inr nrr mask x v. X. Y. sub. cmp. step*4«oct3, blk(4]. modef4], nz . no 
Inl ttltiT). nel'tJ, cidMl. pre [Si. l.vT«l. «ro(4l-IO.O.O.O); 

Boolean nzflag. ncflag. origin; 

int bittnaak3-l<<kle->»»<ib.precision-kle->f rmh. quantizer [OJ-1. 
Buf buf*4kle->buf ; 



for(YxO;V<size(l] ;Y*»9tep) 
for (X*0;X<3ize(0J ;X*»stepi 
for(y»Y;y*aiaetl] « y<Y*step;y~3tep»l 
for(x*X;x<size(0] £& x<X*atep;x*=step»l J 
for (subsO;sub<4;sub**) ( 
mode[oct=oct3-l)*be»e_n*>d«.- # 
if (sub*«0> node(oct»occ9-l] i» M_LFF; 
maskc2<<oct; 



do ( 



Get Addr <ac*ir,x,y, sub. oct. si2S. mask) ; 
awitchtmode(oct)) ( 
case M.V01O: t 
GetData (addr. old. dst ) : 
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if <BlXZero(oldM mode ioc: ] =m_STCP; 
else I DcZero ( addr ,dsc . rcde, occ ; ; I 
break; 
case M.SDJDiH.STILL: 

GetData i addr. new, src ) : 

n: = Oec ide t r.ew) ; nz f lag=nz< refresh feces - oct I : 

;< i.r.zrlag i * Ouant lze t new, zero. pro. lev. kle->irr*h. quant i zer (oct a -oct ) ) 
Ce t Data ( addr . old. dst i ; 
if (BUZero(old) ) ( 
TokenO; 

mode [oct ] »M_STOP; 
} else ( 

Tokenl; Tokenl; 

DoZ e rot addr. dst. mode. oct I ; 

) 

) else ( 

Tokenl; TokenO; 

DoXf er I addr , pro .lev. dsz . mode, oct . M.SEND I M_ST!LX. but ) ; 

) 

break: 
case M.SEND: 

CetDat a (addr. new. sre) ; 
CetData (addr. old. dst) ; 

nz=Decide tnew) ; n2f lag=nz<=thresh (octs-oct ) ; 

if (BlkZero (old) I ( , 

it imflag tt Ouant ire (new. zero. pro. lev, kle->f rmh. quantizer locts-o 
TokenO; 

mode [oct )»M_STOP; 
) else < 

Tokenl; TokenO; 

DoX fer ( addr . pro . lev. dst . mode . oct . M_SEND IM_ST±LL. cur I ; 

) 

) else { 

int ozsDecidefold) . no=Decidel>eltamew, old) ; 

Boolean mot ion» mz*oz > >>oct <■ no; /" motion detection */ 

no*DecideDelta inev,old> ; nof lag»no<*compare (ccci-oct) ; 
origin=na«»no; , 

if M!noflag II motion) ** inzflag) { /• was inoflag ** mttl 
if (Quantize (new. crigin?3ero; eld. pro. lev. kle->frmh. quantize- lo 
Tokenl; Tokenl; TokenO; 
DoZero (addr . dsc .node . oct ) ; 
J else i 

it (origin) { 

Tokenl; TokenO; 

DcXf er addr . pro . lev , dst . mode . oct . M.SEND I ST ILL. but ) ; 

} else ( 

Tokenl; Tokenl; Tokenl; ^ 

DcXfer (addr. pro, lev, dst,n^e.oct,M_SE?JD, our i ; 

) 

) 

] { it ((motion II origin) « nzflag) ( /• «»• origin tt nrflfr 

Tokenl; Tokenl; TokenO; 
Do2ero(addr. dst. mode. oct) ? 
) else ( 
TokenO: 

mode [occ)»M_STOP; 

) 

) 

) 

break; 
case K.rniL: 
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GeiData(addr.new,srci ; 

m.Decideioew) ; nif lag»n a« »cr.xe sh [octs -oct } : 

if inxflac: H Quantizecnew.iero.pxo.lev.kle^ermh.guanciterloccs-octj, 
TokenO; 

mode (oct ] =m_STOP; 
i else i 

DoXf er ( addr . pro . lev . da t . mode .occ. M.STIll . bu£ ) ; 

) 

break; 
case H.LPFIM.STILL: 

GetDetaiaddr.nev.src); 

0u*ntiaaLPFtnew,pto.iev,kle->frtnh.<Tuanti2er{0] ) ; 

veriryDacallev(O) .bitmask. urp> : 
v«rifyDaca(lev(l] *bitmaak f tirp) ; 
VerifyDate t lev(2] . bitnaak. unp) / 
VerifvData( lev(3J .bitmask. tmp) ; 

:ntEncl*avUw.kl«->ae^^ 
PutDeta I addr. pro. due ) ; 
mode (oct ]-H_OOTT; 
break: 
caae M.LPF IM.SEND; 

GetData t addr. new, arc) ; , 

GetDacaladdr. old.dat) ; t m . 

nc=DecideDelcalnew.old) ; no flag=no«* compare {octs-oct J ; 

if moflag) ( 

ToXenO; 
) alee ( 

Ouelu i« < new. old. pro. lev. kle-> frrah. quant iier [ 0 ] ) ; 
Huf xtacLev(lev.bux) ; 
PutData (addr, pro, dst ) ; 

fLde(oct]»H_OUXT; 
break; 

switch (mods [oct)) { 

C * S %topCounters <mode. oct .maak.blk.x.y. octs) : 

break; 
caae M.QUIT: 

break." 
default: 

DovnCcuntera (mode. oct, mask. dik) ; 
break; 

) while i model oct]! =M_OUIT); 
} 

) 

/■ index to quant and vice vers*! '/ WMH3£T0 

sua sra ;ssa;g^"-ss«5s^««'' 



££ripUoT ' SSiri... of tr« to e.l«l.t. n.v QU-nciter valu. 
Arguments: arc - source channel memory 

norma - base HVS weighted norma la 
Returns: calculates new quant 
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; LookAheadl short *src. short -dsciioac r.crms I 5] [ 3i . KIicsE kie) 

i-c x y. sub. index, s iie f 2 ] * ( kle->seqh. *equence_s ize (C ) . kle->seqh. sequ€n 

thresh (HISTO) . quact [HISTOJ . target: 
mt new(4 1. old(4]. addr(4]. lero { 4 ] = (0 . 0 . 0 . 0 } ; 

tloac ^-jant; 

for lindexaO; index<HISTO: index* - ) ( 
thra»M index] =0; 
quact I index ) *0; 

forty»0;y<sire(l] ;y«2<<octs) 
for<x=0;xcsue (0) ;x*=2<<octs) 
cor t subs i;$ub<4;sul>»+) ( 

f loac q_th'resh; 

int nx. fto. ox, blk; 

Boolean 02 flag, origin, motion: 

GetAddr (addr.x.y. sub.octs-l.siie. l<<octs) ; 
CetData (addr. r.»v. sre) ; 
Getoatataddr.oid.dst) ; 
msDecidetnevi ; 
ozsDecide(old) ; 
no*D«cideDelta(n«w.cld) ; 
orflag=kle->encd. intra 11 Blk2eroiold) ; 
or iginsnz<=no; 

motion. (nx«-ox)»cce» <» no; fllf .,, 
0_thr«sha (f loatlnx/DecideDoubletnormsllJ t *J J ; 
if (exflag II origin) { f1 

float qt«CueaaOuantiae ln«v, 20x0, norm* I X J lo j 1 . 

Q_thr»»h»q_chr«3h<at?q.thx«sh:qt ; 

* Cl float qt»C\ies30uantix« < new, old. norms 1 1 J 101) ; 

O^t hxesh»q„threah<qt ?Q_thx€»h : qt ; 

if (* noti-on) { „,.,.. 
qt»(float)no/D«cideDoublainonnSil] [2] 1 : 
o_thxe3h.q_thj«3h<qt ?^_thresh:qt; 

) • 

) 

; ndex*q2i (q_threshl ; 

lndex-index<0?0: index>HISTO- 17HISTO- 1 : index: 
tnresht index)**; 

,* buffer moat be sre.t.r than bfp.in tranm 

r previ0U8 

iSil"iide«HISTO (4 quact|i»d«]/i n de*>t.rgee> index-; 
quane > i2q ( index ) 2 

kl«->«ned.u».5»Mt.tKUo.ncd.t^ ^»Dt.^»ntW2^; forward and rtve 

kle->encd.t«p.QUMt.»3ql Iind»x-q2i (kie->encd. tiBP.quant) ) > . 

iae->«ncd.i;reva-jact=«r-acc (Index) / iindex«0?l: index) ; 



/• Function Name: BaseNormals 
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Engineering : KlicsCoderCcmpPict : :<i;csEnc . c 

* Ascription: Calculates base HVS weighted normals 
Arguments: norms - storage for normals 

Returns: weighted normals 

* / 

vc:d sase.Norr-als ( r Icat norms [5] (3) , KiicsE kle) 

float base_ncrmt3 ]={ 1. 3, kle->encd. thresh. kle->encd. compare) ; 
int norm, oct; 

for (oct=0 ;oct<3 ; oct**) 

f or ( norms 0 ; norm<3 ; norm** ) 

normi(oct] [norm] »baae_ncrm[ norm] * kle - >encd . base [oct ] * (float) il<<kl 

) 

/• Function Name: Normals 
" Description: Calculate HVS weighted normals 9 quant 
Arguments: norma - storage for normals 

* Returns: weighted normals and LPF bits 

void Normalstf loat base.norms [5] [ 3] . int thresh[5] . int ccnpare(5) .KlicsE kle) 

{ 

int oct, i. norm: 

for <oct»0;oct««kle->seqh. octaves t0) ;oct+*> { 

norm»Fi*2Lcng(X2Fi* (beae_norms [oct] [0) *kle->encd. tnp_quant ) ) ; 

norm»norm<171 : norn; 

for (i=0;0!» <norm*-3) ;!♦♦) 

norm* no rm> > 1 ; 
svitch(nonn) < 
case 1: 

kle-> frmh. quantizer (oct] «i ; 
break; 
case 2: 

■ kle->frmh. quantizer {oct J*i-*1; 
br car- 
case 3: 
case «: 

kle-> frmh. quantizer (oct] = i+2; 

thresh[oct]=Fix2Lono<X3ri>(r^ciderx>uble(ba9«.normsroctl (1 ) *kle->encd. tr^C 
conpare [ oct ) *Fix2i-ong (X2Fi* < Dec ideDcubla (bata.no rma loct ] (2] *kle->encd. .mp_- 

ile->trinh.a^ancizertO].kl*-»frmh^ 

/• minimum 4 bits of quant fox lpf due co dynamic range problems / 

Boolean KlicsFlags (KlicsE kle) 
Boolean skip-false; 

kle->encd.buf far-*kle->ancd.bpf_in; 

kle->frmh.flaos»0: 

if (kle->encd.buf f ar<0> 

kle->«ncd.buf fer»0; 
if (kle->ancd. intra) 

kle->frmh. flags l» KFH_IXTRA; 

Gi **if (skip.kle->ancd.buf_sv &« kle->ancd.bux t er>.kle->encd.buf_sixe) 
kle->frmh. flags I* K7H.SKIP; 

return (skip) ; 
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Engineering; KlicsCode rCompPic: :K1 irsEnc. r 



:unct::n Name: K 1 ic s Encode 

Description: tnccde a irame £;cm YUV ! de i : rans formed image 

Arguments: src - scurcs an-agetsj 

2sc - transformed destination memory (and old ior videos) 



ior.g Xi icsEncode i short •src(3), shore •dscf3], KlicsE kle> 

i 

float base. norma (5] (3) ; 

int channel. thresh(5). cornpare[5); 

Buf buf *_kle->buf : 

but _winit (but* ) 

if (KlicsFlags(kle)) 

kle->f rmh. lengih=0; 
else { 

£or ichajmelaO;charinel<kle->segh. channels; channel** ) ( 

int size (2 ) * ( kle->seqh. seo^ence_sire(0)>><channels=0?0;kle->seqh.5 

kle->seqh.seqvjence_si2e[l)>> (channel»»0?0: kle->seqh. su. 
area = sixe (0 J *size[ 1 ] . oct s = kle->seqh .octaves (channel s*0?0 : 

switch ( kle->seqh. wavelet ) { 
case wT_Maar: 

HaarForwardtsrct channel) .size* octs) ; 

break; 
case WT_Daub4 : 

Daub* Forward t src (channel] , size . occs ) ; 

break; 

) 

) 

BaseNormals <base_norma , klej ; 

if ckle->encd.auto_cj fci ! kle->encd. intra) 
LookAhead(src(0],d-c(OJ .base fc noziL». kle) .* 

else 

kle->ened. tn©_guar.t »kle->encd.guant ; 
Norma Is (base^ncrms, tbJ-BSh, compare, kle J ; 
r or (channel»0; channei<kle-.>seqh. channels .-channel-*) < 

int si»e(2) »(kifl->3eqn.3equence_s*ze [0] >> ( channel »»0?0 : kl ft- >segh. 3 

kle->suqh. sequencers* ae ( 1 ) >> t channel *»0?0 : kle->aeqh- aub.sa) 
oct 33kle->seqh- octaves I channel »*0?0:1 J ; 

if ( kle->encd. inert) 

KLZEXCMdst [channel) , size(01 *si2e {1 J ) ; 
if (channeled KlicsS>cY( src I channel ). dsr (channel ), octs. sire. thresh. c 
else Klics£ncUV( src [channel] , dst (channel ) , nets, size . thresh, compare, kle 

) 

buf,flushlbuf ) ; 

kle->f rmh. length*buf_size {buf ) ; 
kle - >encd. buffers kle- >frmh. length; 
if c kle->encd. intra) 

k2t->«ncd.prevtytesskle->fnah. length: 

) 

return ( kle ->fnnh. length) ; 

) 
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Engineering: KlicsCcde :Com?Picc : KlicsHeader . h 



3 Copyright 1993 KLICS Limiced 
All rights r*served. 

Written by: Adrian Lewis 



Sequence and frame headers for Klics-Encoded files 
Hign byte first 



:yp«def strjct ( 

unsigned short descript ion^length; /* Fixed 

unsigned char versicr._nurab«r (2 ] : /• Fixed 

) KlicsHeader; 



cypedef struct ( 

KlicsHeader head; 
unsigned short sequencers ize [3 ] ; 
unsigned char 



unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
KlicsSeqHeader ; 



channels; 
sub_ sample {2] ; 
wavelet; 
precision; 
octaves (2) ; 
reserved £3] ; 



typedef struct ( 

KlicsHeader head; 

unsigned long length; 

unsigned long f rame_number ; 

unsigned char flags; 

unsigned char quantizer [ 5] ; 

unsigned short reserved; 
} KlicsFzari^Header; ' 



/* Fixed 
/• Source 
/• Source 
/• Source 
/* Source 
/• Source 
/• Source 
/• Fixed 



/• Fixed 

/♦ calc 

/* Calc 

/• Calc 

/• Calc 

/• Fixed 



Size of this or parent struc 
version and revision numbers 



Size and version of this str 
Luminance dimensions and num 
Number- of channels: 3 - YUV. 
UV sub- sampling in X and Y d 
Wavelet used; 0 - Kaar. 1 - 
Bit precision for trans font 
Number of octaves Y/UV tmaxii 
Reserved for future use •/ 



Site and version of this str 
Length of frame data (bytes) 
Frame number intended for se 
Bitfield flags: 0 - frame sK 
Quantiser shift values (octav 
Reserved for future use •/ 



^define KFH.SKIP 
^define KFH_ INTRA 



0x1 
0x2 



Implementation notes : 

CuicxTijr.e Must have KlicsFrameKeader . length set to a valid number 
Sun Must have KlicsSeqHeader in data stream 

Possible developments: 

KlicsFrame Header .quantizer 

Currently contains shift rather than stsp-size 

Different values for UV and CH , HG . GG sub-bands are not currently suppo 
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^Incmeering: Kl ^ csCzde : Klirs Codec : :<i ics Encode . r 



XlicsEncode resource file 



-■include "Types. r' 

♦ include * MPWTypes . r ' 

• include • i.-nageCodec . 



Klics Compressor included into the applications resource file here 



•define kl icsCodecFonnatName 
*def:ne kl icsCodecFormatTyp* 



'Klics* 

•klic 



This structure defines the capabilities of the codec. Thare will 

probably be a tool for creating this resource, which measures the perfonaance 

and capabilities of your codec. 



resource 'cdci' (129. 'Klics Codeclnfo' . locked) { 

klicsCodecrormatNarrw. /< 
1. /■ 
1. /- 
'klic', /• 
0. 

codeclnfclM=es32 I codeclnf oDoeaS I codec In foDoesTemporal 
codec Info Depths 4 I codeclnf oSecjuenceSens it ive, /* 
100. /* 
100, /• 
0, /• 
0. /• 
0. /• 
0, 
32. 
32. 
C . 
0. 
0 

I ; 

resource 'thr.g' (128, 'Klics Compressor* , locked) i 
c omp r e s s o rC ompone n t Type » 
k 1 i c s C od e c T o rma t Type , 
'kiic , 

codeclnf oE>o«s32 I codeclnf oDoes 8 I codeclnf oDo*aTentporal , 
0, 

• cdec ' , 
12B. 
' STR ' . 
128, 
■STR ■. 
129. 
•ICON*. 
126 

J; 



niM of the codec TYPE i da 
version •/ 
revision •/ 

who made this codec */ 

/* depth and etc suppo 
which data rormats do we un- 
compress accuracy (0*255) ( 
decompress accuracy (0-255) 
niillisecs to compress 320x2 
millisecs to decompress 320. 
csmpreysion leva* (0-255) ( 



/• minimum height •/ 
/• minimum width •/ 



resource ■ STR • (128) ( 
"Klics Compress* 
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s» Enc/ineering:KliCsCode:Kiics Codec : Kii cs cnccde . r 



esource ' STK • (12?) f 

•wavelet zz&r*slozni & mult iresoluc ion cree tased coding scheme* 
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Engineering : KlicsCoce : Kl ics Codec : Kl icsCeccde . r 



:<lirsDecccie resource rile 



'include • Types. r • 
■include 'MPVTypes . r ■ 
• include " I.T-ageCcdec . r • 

/ • 

Klics Compressor included into the applications resource file here 

•define xlicsCodecFcrroatName 'Klics' 
■define <1 lCsCodecFormatType 'klic* 



This structure defines the capabilities of the codec. There will 

probably be a tool for creating chi3 resource, which measures the performance 

and capabilities of your codec. 



resource ' cdci" (129. *Klics Codeclnf o* . locked) { 

klicsCodecFcraacNamt. /• riamm of the codec TYPE ( da 

l t /• version •/ 

l\ /• revision V 

•iciic. /* wn0 <**de this codec */ 

ccdeclnf oDoes32 Icodeclnf ©Does 16 I codeclnf cDc« a I codeclnf oDcesTempors a Icodeclnfo 
0. 

codeclnf oDepth24 I codec In f cSecjuence Sensitive. / ' 

100. r 

100. /• 

0. /' 

C. /■ 

o. /■ 
c. 

32, /• 

35. /' 

C, 



which data formats do we un- 
compress accuracy * 0- 2 53 1 i 
decompress accuracy (0-255) 
millisecs to congress 320x2 
mi Hi sees to decompress 320 
cOrepreesion level (0-255) ( 

minimum heicht */ 
minimum width */ 



) ; 

resource 'thng* (130, 'Klics Decompressor' . lecked) \ 
d e c cmp r « s s orC orapene nt Type . 
klicsCodecFonnatType. 

codeclnf cDoe*32 I codec InfcDoes 16 1 codeclnf ©Doe s8 I codeclnf oDoesTeraporal I codeclnf o 

0. 

• cdec * . 

128, 

■ STR ' , 

130. 

' STR \ 

131. 

•ICON', 

130 

); 



resource ' STR 1 '130) f 
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CLAIMS 

WE CLAIM: 

1. A method of transforming a sequence of input 
digital data values into a first sequence of transformed 
5 digital data values and of inverse transforming a second 
sequence of transformed digital data values into a sequence 
of output digital data values, said sequence of input 
digital data values comprising a boundary subsequence and a 
non-boundary subsequence, comprising the steps of: 

10 running a number of said input digital data 

values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
digital filter and through a high pass boundary 
forward transform perfect reconstruction digital 

15 filter to produce a first subsequence of said first 

sequence of transformed digital data values, said 
first subsequence of said first sequence of 
transformed digital data values comprising interleaved 
low and high frequency transformed digital data 

20 values; 

running a number of said iniput digital data 
values of said non-boundary subsequence through a low 
pass non-boundary forward transform perfect 
reconstruction digital filter and also through a high 

25 pass non-boundary forward transform perfect 

reconstruction digital filter to produce a second 
subsequence of said first sequence of transformed 
digital data values, said second subsequence of said 
first sequence of transformed digital data values 

30 comprising interleaved low and high frequency 

transformed digital data values, said low pass 
boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 
than said low pass non-boundary forward transform 

35 perfect reconstruction digital filter, said high pass 

boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 
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than said high pass non-boundary forward transform 
perfect reconstruction digital filter; 

converting said first sequence of transformed 
digital data values into said second sequence of 
5 transformed digital data values, said second sequence 

of transformed digital data values comprising a first 
subsequence of said second sequence of transformed 
digital data values and a second subsequence of said 
second sequence of transformed digital data values; 

10 running a number of said first subsequence of 

said second sequence of transformed digital data 
values through an interleaved boundary inverse 
transform perfect reconstruction digital filter to 
produce at least one output digital data value; 

15 running a number of said second subsequence of 

said second sequence of transformed digital data 
values through a first interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter to produce output digital data values; and 

20 running a number of said second subsequence of 

transformed digital data values through a second 
interleaved non-boundary inverse transform perfect 
reconstruction digital filter to produce output 
digital data values, said output digital data values 

25 produced by said interleaved boundary inverse 

transform perfect reconstruction digital filter, said 
first interleaved non-boundary inverse transform 
perfect reconstruction digital filter, and said second 
interleaved non-boundary inverse transform perfect 

30 reconstruction digital filter comprising a subsequence 

of said output digital data values of said sequence of 
output digital data values. 

2. The method of Claim 1, wherein said low pass 
boundary forward transform perfect reconstruction digital 
35 filter has X coefficients and wherein said low pass non- 
boundary forward transform perfect reconstruction digital 
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filter has Y coefficients, Y being greater than X, said X 
coefficients of said low pass boundary forward transform 
perfect reconstruction digital filter being chosen so that 
said low pass boundary forward transform perfect 
5 reconstruction digital filter outputs a transformed digital 
data value H 0 when the low pass boundary forward perfect 
transform reconstruction digital filter operates on input 
digital data values ID 0 -ID X . 1 adjacent said boundary, said 
transformed digital data value H 0 being substantially equal 

10 to what the output of the low pass non-boundary forward 
transform perfect reconstruction digital filter would be 
were the low pass non-boundary forward perfect 
reconstruction digital filter to operate on ID 0 -ID x _i as 
well as Y-X additional input digital data values outside 

15 said boundary, said additional input digital data values 
having preselected values. 

3. The method of Claim 2, wherein Y-X»l, wherein 
there is one additional input digital data value ID. 1# and 
wherein ID-i is preselected to be substantially equal to 

20 ID 0 . 

4. The method of Claim 2, wherein Y-X=l, wherein 
there is one additional input digital data value ID_ X , and 
wherein ID^ is preselected to be substantially equal to 
zero. 

25 5. The method of Claim 1, wherein said sequence of 

input digital data values is a sequence of digital data 
values associated with pixels of either a row or a column 
of a two dimensional image, said boundary of said sequence 
of input digital data values corresponding with either a 

30 start or an end of said row or said column. 

6. The method of Claim 1, wherein said sequence of 
input digital data values is a sequence of digital data 
values associated with an audio signal. 
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7. The method of Claim 1, wherein said low and high 
pass non-bdnndary forward transform perfect reconstruction 
digital filters are forward transform quasi-perfect 
reconstruction filters which have coefficients which 
5 approximate the coefficients of true forward transform 
perfect reconstruction filters. 

8- The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
digital filters are both four coefficient quasi-Daubechies 
10 filters the coefficients of which approximate the 

coefficients of true four coefficient Daubechies filters. 

9. The method of Claim 8, wherein one of said four 
coefficient quasi-Daubechies filters has the coefficients 
11/32, 19/32 f 5/32 and 3/32 independent of sign. 

15 io. The method of Claim 1, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient guasi-Daubechies filter H of 
the form: 

H n = aID 2lW + bID 2n + cID 2n+1 - dID 2n+2 

20 n being a positive integer, ID 0 -ID m being input digital data 
values, m being a positive integer, ID 0 being the first 
input digital data value in said sequence of input digital 
data values, and wherein said low pass boundary forward 
transform perfect reconstruction digital filter is a three 

25 coefficient digital filter of the form: 

H 0 *= aID. a + blD 0 + cID 1 - dID 2 

ID.j being a predetermined input digital data value outside 
said boundary and having a preselected value. 

11. The method of Claim 10, wherein said high pass 
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non-boundary forward transform perfect reconstruction 
digital filter is a four coefficient quasi-Daubechies 
filter of the form: 

G n - dID 2n _ 2 + cID 2n - bID 2n+1 + aID 2n+2 

5 n being a positive integer, and wherein said high pass 
boundary forward transform perfect reconstruction digital 
filter is a three coefficient digital filter of the form; 

G 0 = dID.! + cID 0 - bID 2 + aID 2 

dID.i having a preselected value. 

10 12. The method of Claim 11, wherein: a+b+c-dis 

substantially equal to 1, wherein a - b + c + d is 
substantially equal to 0, and wherein ac - bd is 
substantially equal to rero. 

13. The method of Claim 12, wherein: a=ll/32, 
15 b=19/32, c=5/32 and d^3/32. 

14. The method of Claim 11, wherein said interleaved 
boundary inverse transform perfect reconstruction digital 
filter is a two coefficient digital filter of the form: 

OD 0 - 4(b-a)H 0 + 4(c-d)G 0 

20 wherein OD 0 is an output digital data value of 

said sequence of output digital data values, wherein G 0 is 
the output of said high pass boundary forward transform 
perfect reconstruction digital filter when the high pass 
boundary forward transform perfect reconstruction digital 

25 filter operates on input digital data values ID 0 , ID X and 
ID 2 adjacent said boundary, and wherein H 0 is the output of 
said low pass boundary forward transform perfect 
reconstruction digital filter when the low pass boundary 
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forward transform perfect reconstruction digital filter 
operates oft input digital data values ID 0 , ID X and ID 2 
adjacent said boundary. 

15. The method of Claim 14, wherein one of said first 
5 and second interleaved non-boundary inverse transform 
perfect reconstruction digital filters is of the form: 

D 2n4l = 2(cH n - bG n + aH n+1 ■+ dG n+1 ) 

n being a non-negative integer, and wherein the other of 
said first and second interleaved non-boundary inverse 
10 perfect reconstruction digital filters is of the form: 

D 2n+2 " 2 <- dH n * aG n + b H n+1 + cG n+1 ) 

n being a non-negative integer, wherein H n , G n , H n+1 and G n+1 
comprise a subsequence of said second sequence of 
transformed digital data values. 

15 16. The method of Claim 1, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient guasi-Daubechies filter having 
the coefficients: 11/32, 19/32, 5/32 and -3/32, and wherein 
said high pass non-boundary forward transform perfect 

20 reconstruction digital filter is a four coefficient quasi- 
Daubechies filter having the coefficients: 3/32, 5/32, - 
19/32 and 11/32. 

17. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
25 digital filters are chosen from the group consisting of: 
true six coefficient Daubechies filters and guasi- 
Daubechies filters, the coefficients of the guasi- 
Daubechies filters approximating the coefficients of true 
six coefficient Daubechies filters. 
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18. The method of Claim 1, further comprising the 
steps of : 

encoding said first sequence of transformed 
digital data values into an encoded sequence; and 
5 decoding said encoded sequence of digital data 

values into said second sequence of transformed 
digital data values and supplying said second sequence 
of transformed digital data values to said interleaved 
boundary inverse transform perfect reconstruction 
10 digital filter, said first interleaved non-boundary 

inverse transform perfect reconstruction digital 
filter, and said second interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter. 

15 is. The method of claim 18, further comprising the 

step of : 

quantizing each of said digital data values in 
said first sequence of transformed values before said 
encoding step. 

20 20. The method of Claim 1, wherein each of said input 

digital data values of said sequence of input digital data 
values is stored in a separate memory location, and wherein 
some of said memory locations are overwritten in a sequence 
with said sequence of transformed digital data values as 

25 said digital data input values are transformed into said 
transformed digital data values. 

21. A method of transforming a sequence of input 
digital data values into a sequence of transformed digital 
data values, said sequence of input digital data values 
3 0 comprising a boundary subsequence and a non-boundary 
subsequence, comprising the steps of: 

running a number of said input digital data 
values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
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digital filter and through a high pass boundary 
forvafB transform perfect reconstruction digital 
filter to produce a first subsequence of said sequence 
of transformed digital data values, said first 
5 subsequence of said sequence of transformed digital 

data values comprising interleaved low and high 
frequency transformed digital data values; and 

running a number of said input digital data 
values of said non-boundary subsequence through a low 
10 pass non-boundary forward transform perfect 

reconstruction digital filter and also through a high 
pass non-boundary forward transform perfect 
reconstruction digital filter to produce a second 
subsequence of said sequence of transformed digital 
15 data values, said second subsequence of said sequence 

of transformed digital data values comprising 
interleaved low and high frequency transformed digital 
data values, said low pass boundary forward transform 
perfect reconstruction digital filter having a fewer 
20 number of coefficients than said low pass non-boundary 

forward transform perfect reconstruction digital 
filter, said high pass boundary forward transform 
perfect reconstruction digital filter having a fewer 
number of coefficients than said high pass non- 
boundary forward transform perfect reconstruction 
digital filter. 

22. A method, comprising the steps of: 

generating a sub-band decomposition having a 
plurality of octaves, a first of said plurality of 
octaves comprising at least one first digital data 
value, a second of said plurality of octaves 
comprising at least one second digital data value; 

calculating a sum of the absolute values of said 
at least one first digital data value; 

determining if said at least one first digital 
data value is interesting using a first threshold 



30 



35 
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limit; 

calculating a sum of the absolute values of said 
at least one second digital data value; and 

determining if said at least one second digital 
5 data value is interesting using a second threshold 

limit. 

23. A method of traversing a tree decomposition, said 
tree decomposition comprising a plurality of transformed 
data values, each of said plurality of transformed data 

10 values having a unique address identified by coordinates X 
and Y # comprising the step of: 

calculating at least four transformed data value 
addresses by incrementing a count, the count 
comprising one bit Cl x in the X coordinate and one bit 
15 Cl y in the Y coordinate, to generate said at least 

four transformed data value addresses. 

24. A method, comprising the step of: 
determining an address of a transformed data value in 

a tree decomposition by shifting a value a number of times, 
20 said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
number of times being at least dependent upon said one 
octave. 

25. A method, comprising the step of: 

25 determining an address of a transformed data value ift 

a tree decomposition by multiplying a value by a factor, 
said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
factor being at least dependent upon said one octave. 

30 26. A method, comprising the step of: 

determining an address of a transformed data value in 
a tree decomposition by shifting a value a number of times, 
said tree decomposition having a number of frequency sub- 
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bands, said transformed data value being in one of said 
frequency sub-bands, said number of times being at least 
dependent upon said frequency sub-band. 

27. A method, comprising the step of: 

5 determining an address of a transformed data value in 

a tree decomposition by performing a logical operation upon 
a value, said tree decomposition having a number of 
frequency sub-bands, said transformed data value being in 
one of said frequency sub-bands, said logical operation 
10 performed being at least dependent upon said one frequency 
sub- band. 

28. The method of Claim 27, wherein said logical 
operation is a bit-wise logical AND operation. 

29. A method for determining a low pass quasi-perfect 
15 reconstruction filter and a high pass quasi-perfect 

reconstruction filter from a wavelet function, said low 
pass quasi-perfect reconstruction filter having a plurality 
of coefficients, said high pass quasi-perfect 
reconstruction filter having a plurality of coefficients, 

20 comprising the steps of: 

determining a low pass wavelet digital filter and a 
high pass wavelet digital filter from said wavelet 
function, said low pass wavelet digital filter having a 
plurality of coefficients, said high pass wavelet digital 

25 filter having a plurality of coefficients; 

choosing the coefficients of said low pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of 1 is 
processed by said low pass quasi-perfect reconstruction 

30 digital filter the output of said low pass quasi-perfect 
reconstruction digital filter is exactly a power of 2; and 

choosing the coefficients of the high pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of 1 is 
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processed by said high pass quasi-perfect reconstruction 
digital fi.Ii.er the output of said high pass quasi-perfect 
reconstruction digital filter is exactly 0, whereby each of 
the plurality of coefficients of said low pass quasi- 
5 perfect reconstruction digital filter is substantially 
identical to a corresponding one of said plurality of 
coefficients of said low pass wavelet digital filter, and 
whereby each of the plurality of coefficients of said high 
pass quasi-perfect reconstruction digital filter is 
10 substantially identical to a corresponding one of said 

plurality of coefficients of said high pass wavelet digital 
filter. 

3 0 . A method of estimating a compression ratio of a 
number of original data values to a number of compressed 
15 data values at a value of a quality factor Q, comprising 
the steps of: 

examining a first block of transformed data values of 
a tree, said first block being one of a number of lowest 
frequency blocks of a high pass component sub-band, said 

20 tree being part of a sub-band decomposition; and 

determining a value of said quality factor Q at which 
said data values of said first block would be converted 
into compressed data values, and not determining a value of 
said quality factor Q at which any other block of data 

25 values of said tree would be converted into a number of 
compressed data values, 

31. The method of Claim 30, wherein said number of 
original data values represents a frame of an image. 

32. The method of Claim 31, further comprising the 
3 0 .step of: 

determining a number of lowest frequency blocks of 
said high pass component sub-band which would be converted 
into compressed data values given a value of said quality 
factor Q. 
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33. K method of transforming a sequence of image data 
values, comprising the step of: 

filtering said sequence of image data values using a 
quasi-perfect reconstruction filter to generate a 
5 decomposition having a plurality of octaves, said quasi- 
perfect reconstruction filter having six coefficients. 

34. The method of Claim 33, wherein said six 
coefficients are selected from the group consisting of: 
30/128, 73/128, 41/128, 12/128, 7/128 and 3/128, 

10 irrespective of sign. 

35. A method of detecting motion in a tree 
decomposition, said tree decomposition comprising a 
plurality of octaves of blocks of data values , comprising 
the steps of: 

15 comparing data values of a first block in an octave 

with data values of a second block in said octave; and 

generating a token indicating motion based on said 
comparing. 

36. A method, comprising the steps of: 

20 generating a sub-band decomposition having a plurality 

of octaves, a first of said plurality of octaves comprising 
at least one first digital data value, a second of said 
plurality of octaves comprising at least one second digital 
data value; 

25 determining if said at least one first digital data 

value is interesting using a first threshold limit; and 

determining if said at least one second digital data 
value is interesting using a second threshold limit. 

37. A method i comprising the steps of: 

30 generating a sub-band decomposition of a first frame 

having a plurality of octaves, a first of said plurality of 
octaves comprising at least one first digital data value, a 
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second of said plurality of octaves comprising at least one 
second digital data value; 

generating a sub-band decomposition of a second frame 
having a plurality of octaves, a first of said plurality of 
5 octaves comprising at least one first digital data value, a 
second of said plurality of octaves comprising at least one 
second digital data value; 

comparing said first digital data value of said first 
frame with said first digital data value of said second 
10 frame using a first threshold compare; and 

comparing said second digital data value of said first 
frame with said second digital data value of said second 
frame using a second threshold compare. 

38. A method, comprising the steps of: 

15 reading a sequence of data values from a plurality of 

memory locations, each of said data values being stored in 
a separate one of said plurality of memory locations; and 

overwriting some of said memory locations in a 
sequence as said data values are transformed into a 

2 0 sequence of transformed data values of a sub-band 
decomposition. 

39. A method, comprising the steps of: 

performing a function on a plurality of data values of 
a new block to generate a first output value, said new 

25 block being a block of data values of a sub-band 
decomposition of a new frame; 

performing said function on a plurality of numbers to 
generate a second output value, each of said numbers 
substantially equalling a difference of a data value in 

30 said plurality of data values of said new block and a 
corresponding data value in a corresponding plurality of 
data values of an old block, said old block being a block 
of data values of a sub-band decomposition of an old frame; 
and 

35 generating a token if said first output value has a 
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predetermined relationship virh respect to said second 
output valute. 

40. The method of Claim 39, wherein said token is a 
SEND_STILL token. 

5 41. A method, comprising the steps of: 

performing a function on a plurality of data values of 

a new block to generate a corresponding plurality of output 

values, said new block being a block of data values of a 

sub-band decomposition; 
10 comparing each of said plurality of output values with 

a predetermined number; and 

generating a token if substantially all of said output 

values have a predetermined relationship with respect to 

said predetermined number. 

15 42. The method of Claim 41, wherein said token is a 

VOID token. 

43. A method, comprising the steps of: 
subtracting each one of a plurality of data values of 
a new block with a corresponding one of a plurality of data 
20 values of a old block to generate a corresponding plurality 
of output values, said new block being a block of data 
values of a sub-band decomposition of a new frame, said old 
block being a block of data values of a sub-band 
decomposition of a old frame; 
25 comparing each of said plurality of output values with 

a predetermined number; and 

generating a token if substantially all of said output 
values have a predetermined relationship with respect to 
said predetermined number. 

30 44 . The method of Claim 43, wherein said token is a 

VOID token. 
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45. A method, comprising the steps of: 
determining an absolute value for each of a plurality 

of data values of a block of a sub-band decomposition; 
determining a sum of said absolute values; and 
5 generating a token based on a comparison of said sum 

with a predetermined number. 

46. The method of Claim 45, wherein said token is a 
VOID token. 

47. A method, comprising the steps of: 

10 processing a sequence of first image data values using 

a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to create a first sequence of 
transformed data values, said low pass forward transform 

15 perfect reconstruction digital filter and said high pass 
forward transform perfect reconstruction digital filter 
each having coefficients chosen from a first group of 
coefficients independent of sign; 

converting said first sequence of transformed data 

20 values into a second sequence of transformed data values; 
and 

using digital circuitry to process said second 
sequence of transformed data values using a low pass 
inverse transform perfect reconstruction digital filter and 

25 a high pass inverse transform perfect reconstruction 

digital filter into a sequence of second image data values , 
said low pass inverse transform perfect reconstruction 
digital filter and said high pass inverse transform perfect 
reconstruction digital filter each having coefficients 

30 chosen from a second group of coefficients independent of 
sign. 

48. The method of claim 47, wherein said digital 
circuitry used to process said second sequence of 
transformed data values is a digital computer having a 
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microprocessor . 

49. The method of claim 47, wherein at least one of 
the coefficients in said first group of coefficients is not 
contained in said second group of coefficients. 

5 50. The method of claim 47, wherein said first group 

of coefficients has a different number of coefficients than 
said second group of coefficients. 

51. The method of claim 50, wherein said sequence of 
first image data values is a sequence of chrominance data 

10 values, 

52. The method of claim 50, wherein said low pass 
forward transform perfect reconstruction digital filter and 
said high pass forward transform perfect reconstruction 
digital filter each have four coefficients, and wherein 

15 said low pass inverse transform perfect reconstruction 

digital filter and said high pass inverse transform perfect 
reconstruction digital filter each have two coefficients. 

53. The method of claim 52, wherein said sequence of 
first image data values is a sequence of chrominance data 

20 values. 

54. The method of claim 47, wherein each of said 
coefficients of said low pass inverse transform perfect 
reconstruction digital filter and said high pass inverse 
transform perfect reconstruction digital filter is selected 

25 from the group consisting of: 5/8, 3/8 and 1/8, independent 
of sign. 

55. The method of claim 47, wherein said converting 
step comprises the steps of: 

encoding said first sequence of transf ormed data 
30 values into a compressed data stream; and 
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decoding said compressed data stream into said second 
sequence of* transformed data values. 

56. A method comprising the step of using digital 
circuitry to process a sequence of image data values using 

5 a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to generate a sub-band 
decomposition, said low pass forward transform perfect 
reconstruction digital filter and said high pass forward 
10 transform perfect reconstruction digital filter each having 
four coefficients, each of said four coefficients being 
selected from the group consisting of: 5/8, 3/8 and 1/8, 
independent of sign. 

57. The method of claim 56, wherein said digital 
15 circuitry comprises means for low pass forward transform 

perfect reconstruction digital filtering and for high pass 
forward transform perfect reconstruction digital filtering. 

58. A method comprising the step of using digital 
circuitry to process a sequence of transformed data values 

20 of a sub-band decomposition using an odd inverse transform 
perfect reconstruction digital filter and an even inverse 
transform perfect reconstruction digital filter, said odd 
inverse transform perfect reconstruction digital filter and 
said even inverse transform perfect reconstruction digital 

25 filter each having four coefficients, each of said four 
coefficients being selected from the group consisting of: 
5/8, 3/8 and 1/8, independent of sign. 

59. The method of claim 58, wherein said digital 
circuitry is a digital computer having a microprocessor. 

3 0 60. A method comprising the step of generating a 

compressed data stream indicative of a video sequence from 
a sub-band decomposition, said compressed data stream 
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comprising a first data value, a first token, a second data 
value, and^a second token, said first token being 
indicative of a first encoding method used to encode said 
first data value, said second token being indicative of a 
5 second encoding method used to encode said second data 
value, said first token consisting of a first number of 
bits and said second token consisting of a second number of 
bits. 

61. The method of claim 60, wherein said first 

10 encoding method is taken from the group consisting of: SEND 
mode, STILL_SEND mode, VOID mode, and STOP mode, 

62. The method of claim 60, wherein said first token 
is a single bit token. 

63. A method, comprising the steps of: 

15 forward transforming image data values to generate a 

first sequence of transformed data values of a first sub- 
band decomposition, said first sub-band decomposing having 
a first number of octaves; 

converting said first sequence of transformed data 

20 values into a second sequence of transformed data values; 

using digital circuitry to inverse transforming said 
second sequence of transformed data values into a third 
sequence of transformed data values, said third sequence of 
transformed data values comprising a second sub-band 

25 decomposition having a second nmnber of octaves, said 
second number of octaves being smaller than said first 
number of octaves, said second sub-band decomposition 
having a low pass component, said low pass component of 
said second sub-band decomposition comprising data values 

30 indicative of rows of data values of an image, said rows of 
said image extending in a first dimension, said image also 
having columns of said data values extending in a second 
dimension; 

expanding said low' pass component in said first 
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dimension using interpolation to generate an interpolated 
low pass component; and 

e>rpanding said interpolated low pass component in said 
second dimension by replicating rows of said data values of 
5 said interpolated low pass component. 

64. The method of claim 63, wherein said digital 
circuitry is a digital computer having a microprocessor. 

65. The method of claim 63, wherein said converting 
step comprises the steps of: 

10 encoding said first sequence of transformed data 

values into a compressed data stream comprising tokens and 
encoded data values; and 

decoding said compressed data stream into said second 
sequence of transformed data values. 
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